/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / misc / sciapps / !SciModel / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1d f4 20 3e 3c | 42 65 64 69 74 24 70 61 |..... ><|Bedit$pa|
|00000010| 74 68 3e 2e 21 52 75 6e | 49 6d 61 67 65 0d 00 14 |th>.!Run|Image...|
|00000020| 31 f4 20 52 69 73 63 20 | 4f 53 20 53 63 69 65 6e |1. Risc |OS Scien|
|00000030| 74 69 66 69 63 20 4d 6f | 64 65 6c 20 43 75 72 76 |tific Mo|del Curv|
|00000040| 65 20 66 69 74 74 65 72 | 2c 20 56 31 2e 35 0d 00 |e fitter|, V1.5..|
|00000050| 1e 0a f2 5f 49 6e 69 74 | 0d 00 28 0f f2 5f 54 65 |..._Init|..(.._Te|
|00000060| 6d 70 6c 61 74 65 73 0d | 00 32 0e f2 5f 49 6e 69 |mplates.|.2.._Ini|
|00000070| 74 56 61 72 73 0d 00 3c | 18 ee 20 85 20 e7 20 a4 |tVars..<|.. . . .|
|00000080| 77 69 6d 70 65 72 72 6f | 72 20 8c 20 e0 0d 00 46 |wimperro|r . ...F|
|00000090| 14 f5 3a f2 5f 50 6f 6c | 6c 3a fd 20 71 75 69 74 |..:._Pol|l:. quit|
|000000a0| 25 0d 00 50 0e f2 63 6c | 6f 73 65 64 6f 77 6e 0d |%..P..cl|osedown.|
|000000b0| 00 5a 05 e0 0d 00 64 05 | 3a 0d 00 6e 0c dd 20 f2 |.Z....d.|:..n.. .|
|000000c0| 5f 49 6e 69 74 0d 00 78 | 50 de 20 62 6c 6f 63 6b |_Init..x|P. block|
|000000d0| 25 20 26 35 30 30 2c 73 | 70 72 69 74 65 25 20 32 |% &500,s|prite% 2|
|000000e0| 30 2c 73 70 72 69 74 65 | 5f 74 65 78 74 25 20 31 |0,sprite|_text% 1|
|000000f0| 32 2c 73 70 72 69 74 65 | 32 25 20 32 30 2c 6d 65 |2,sprite|2% 20,me|
|00000100| 6e 75 25 20 26 33 30 30 | 2c 69 63 6f 6e 62 6c 6b |nu% &300|,iconblk|
|00000110| 25 20 31 30 30 0d 00 82 | 2c de 20 62 6c 6f 63 6b |% 100...|,. block|
|00000120| 32 25 20 26 37 30 30 2c | 6f 6c 64 62 6c 6b 25 20 |2% &700,|oldblk% |
|00000130| 26 33 30 30 2c 65 72 72 | 62 6c 6b 25 20 26 33 30 |&300,err|blk% &30|
|00000140| 30 0d 00 8c 43 de 20 50 | 61 72 61 6d 48 25 28 38 |0...C. P|aramH%(8|
|00000150| 29 2c 50 61 72 61 6d 28 | 38 29 2c 45 72 72 6f 72 |),Param(|8),Error|
|00000160| 48 25 28 38 29 2c 45 72 | 72 6f 72 28 38 29 2c 74 |H%(8),Er|ror(8),t|
|00000170| 72 61 63 65 25 20 26 31 | 30 30 2c 63 61 72 65 74 |race% &1|00,caret|
|00000180| 25 20 32 34 0d 00 96 34 | de 20 58 28 31 30 30 29 |% 24...4|. X(100)|
|00000190| 2c 59 28 31 30 30 29 2c | 45 72 72 59 28 31 30 30 |,Y(100),|ErrY(100|
|000001a0| 29 2c 46 72 6f 7a 65 6e | 48 25 28 38 29 2c 46 72 |),Frozen|H%(8),Fr|
|000001b0| 6f 7a 65 6e 25 28 38 29 | 0d 00 a0 47 de 20 6f 75 |ozen%(8)|...G. ou|
|000001c0| 74 25 20 26 34 30 30 30 | 2c 62 75 66 25 20 34 30 |t% &4000|,buf% 40|
|000001d0| 2c 53 74 79 6c 65 48 25 | 28 31 30 2c 31 30 29 2c |,StyleH%|(10,10),|
|000001e0| 53 74 79 6c 65 24 28 31 | 30 2c 31 30 29 2c 53 74 |Style$(1|0,10),St|
|000001f0| 79 6c 65 46 6c 61 67 25 | 28 31 30 2c 31 30 29 0d |yleFlag%|(10,10).|
|00000200| 00 aa 2a de 20 44 69 73 | 70 6c 61 79 4d 6f 64 65 |..*. Dis|playMode|
|00000210| 6c 25 28 31 30 29 2c 44 | 69 73 70 6c 61 79 4d 6f |l%(10),D|isplayMo|
|00000220| 64 65 6c 48 25 28 31 30 | 29 0d 00 b4 1f de 20 64 |delH%(10|)..... d|
|00000230| 46 69 48 25 28 38 29 2c | 64 46 69 24 28 38 29 2c |FiH%(8),|dFi$(8),|
|00000240| 64 46 64 50 69 28 38 29 | 0d 00 be 20 f4 20 4c 65 |dFdPi(8)|... . Le|
|00000250| 76 65 6e 62 65 72 67 20 | 4d 61 72 71 75 68 61 72 |venberg |Marquhar|
|00000260| 64 74 20 73 74 75 66 66 | 0d 00 c8 3b de 20 53 69 |dt stuff|...;. Si|
|00000270| 67 28 31 30 30 29 2c 4c | 69 73 74 41 25 28 38 29 |g(100),L|istA%(8)|
|00000280| 2c 54 65 6d 70 25 28 38 | 29 2c 43 6f 76 61 72 28 |,Temp%(8|),Covar(|
|00000290| 32 30 2c 32 30 29 2c 41 | 6c 70 68 61 28 32 30 2c |20,20),A|lpha(20,|
|000002a0| 32 30 29 0d 00 d2 3a de | 20 41 54 72 79 28 38 29 |20)...:.| ATry(8)|
|000002b0| 2c 42 65 74 61 28 32 30 | 29 2c 44 41 28 32 30 29 |,Beta(20|),DA(20)|
|000002c0| 2c 49 50 49 56 25 28 38 | 29 2c 49 4e 44 58 52 25 |,IPIV%(8|),INDXR%|
|000002d0| 28 38 29 2c 49 4e 44 58 | 43 25 28 38 29 0d 00 dc |(8),INDX|C%(8)...|
|000002e0| 2a de 20 41 47 28 32 30 | 2c 32 30 29 2c 42 47 28 |*. AG(20|,20),BG(|
|000002f0| 32 30 2c 32 30 29 2c 41 | 4d 28 32 30 2c 32 30 29 |20,20),A|M(20,20)|
|00000300| 2c 42 4d 28 32 30 29 0d | 00 e6 3b de 20 6f 6b 73 |,BM(20).|..;. oks|
|00000310| 25 20 32 3a 24 6f 6b 73 | 25 3d 22 4f 4b 22 3a de |% 2:$oks|%="OK":.|
|00000320| 20 66 6e 61 6d 65 25 20 | 32 35 35 2c 76 61 6c 69 | fname% |255,vali|
|00000330| 64 25 20 33 3a 24 76 61 | 6c 69 64 25 3d 22 41 7e |d% 3:$va|lid%="A~|
|00000340| 20 22 0d 00 f0 11 de 20 | 4d 65 6e 75 24 28 33 30 | "..... |Menu$(30|
|00000350| 2c 33 29 0d 00 fa 11 6d | 61 78 62 75 66 25 3d 26 |,3)....m|axbuf%=&|
|00000360| 34 30 30 30 0d 01 04 26 | de 20 62 75 66 66 65 72 |4000...&|. buffer|
|00000370| 25 20 6d 61 78 62 75 66 | 25 3a 63 75 72 62 75 66 |% maxbuf|%:curbuf|
|00000380| 66 25 3d 62 75 66 66 65 | 72 25 0d 01 0e 30 de 20 |f%=buffe|r%...0. |
|00000390| 4d 54 24 28 32 30 29 2c | 4d 46 24 28 32 30 29 2c |MT$(20),|MF$(20),|
|000003a0| 4d 41 46 24 28 32 30 29 | 2c 4d 44 25 28 32 30 29 |MAF$(20)|,MD%(20)|
|000003b0| 2c 4d 44 24 28 32 30 2c | 38 29 0d 01 18 13 62 6c |,MD$(20,|8)....bl|
|000003c0| 6f 63 6b 6c 65 6e 25 3d | 26 34 30 30 30 0d 01 22 |ocklen%=|&4000.."|
|000003d0| 15 71 75 69 74 25 3d a3 | 3a 6d 79 72 65 66 25 3d |.quit%=.|:myref%=|
|000003e0| 2d 31 0d 01 2c 10 53 70 | 6f 6f 6c 46 6c 61 67 25 |-1..,.Sp|oolFlag%|
|000003f0| 3d a3 0d 01 36 10 54 72 | 61 63 65 46 6c 61 67 25 |=...6.Tr|aceFlag%|
|00000400| 3d a3 0d 01 40 0b 44 61 | 74 61 25 3d a3 0d 01 4a |=...@.Da|ta%=...J|
|00000410| 15 74 69 74 6c 65 24 3d | 22 53 63 69 4d 6f 64 65 |.title$=|"SciMode|
|00000420| 6c 22 0d 01 54 12 24 62 | 6c 6f 63 6b 25 3d 22 54 |l"..T.$b|lock%="T|
|00000430| 41 53 4b 22 0d 01 5e 3c | c8 99 20 22 57 69 6d 70 |ASK"..^<|.. "Wimp|
|00000440| 5f 49 6e 69 74 69 61 6c | 69 73 65 22 2c 32 30 30 |_Initial|ise",200|
|00000450| 2c 21 62 6c 6f 63 6b 25 | 2c 74 69 74 6c 65 24 20 |,!block%|,title$ |
|00000460| b8 20 76 65 72 73 69 6f | 6e 25 2c 74 61 73 6b 25 |. versio|n%,task%|
|00000470| 0d 01 68 19 24 73 70 72 | 69 74 65 32 25 3d 22 73 |..h.$spr|ite2%="s|
|00000480| 21 22 2b 74 69 74 6c 65 | 24 0d 01 72 18 24 73 70 |!"+title|$..r.$sp|
|00000490| 72 69 74 65 5f 74 65 78 | 74 25 3d 74 69 74 6c 65 |rite_tex|t%=title|
|000004a0| 24 0d 01 7c 44 73 69 63 | 6f 6e 25 3d a4 69 63 6f |$..|Dsic|on%=.ico|
|000004b0| 6e 28 2d 31 2c 30 2c 2d | 31 36 2c 31 32 38 2c 39 |n(-1,0,-|16,128,9|
|000004c0| 32 2c 26 31 37 30 30 33 | 31 32 42 2c 73 70 72 69 |2,&17003|12B,spri|
|000004d0| 74 65 5f 74 65 78 74 25 | 2c 73 70 72 69 74 65 32 |te_text%|,sprite2|
|000004e0| 25 2c 31 31 29 0d 01 86 | 17 ff 28 22 41 6c 70 68 |%,11)...|..("Alph|
|000004f0| 61 62 65 74 20 47 72 65 | 65 6b 22 29 0d 01 90 25 |abet Gre|ek")...%|
|00000500| ff 28 22 50 72 69 6e 74 | 20 3c 53 63 69 4d 6f 64 |.("Print| <SciMod|
|00000510| 65 6c 24 44 69 72 3e 2e | 43 68 61 72 73 65 74 22 |el$Dir>.|Charset"|
|00000520| 29 0d 01 9a 05 e1 0d 01 | a4 05 3a 0d 01 ae 10 dd |).......|..:.....|
|00000530| 20 f2 5f 49 6e 69 74 56 | 61 72 73 0d 01 b8 08 ea | ._InitV|ars.....|
|00000540| 20 41 25 0d 01 c2 14 77 | 69 6e 64 25 3d 50 61 72 | A%....w|ind%=Par|
|00000550| 61 6d 65 74 65 72 25 0d | 01 cc 2e 50 61 72 61 6d |ameter%.|...Param|
|00000560| 73 25 3d 30 3a f2 73 65 | 74 76 61 72 69 63 6f 6e |s%=0:.se|tvaricon|
|00000570| 28 50 61 72 61 6d 73 48 | 25 2c c3 28 50 61 72 61 |(ParamsH|%,.(Para|
|00000580| 6d 73 25 29 29 0d 01 d6 | 0f 4d 61 78 49 74 65 72 |ms%))...|.MaxIter|
|00000590| 25 3d 31 30 0d 01 e0 26 | f2 73 65 74 76 61 72 69 |%=10...&|.setvari|
|000005a0| 63 6f 6e 28 4d 61 78 49 | 74 65 72 48 25 2c c3 28 |con(MaxI|terH%,.(|
|000005b0| 4d 61 78 49 74 65 72 25 | 29 29 0d 01 ea 34 53 69 |MaxIter%|))...4Si|
|000005c0| 67 65 78 3d 30 2e 30 31 | 3a f2 73 65 74 76 61 72 |gex=0.01|:.setvar|
|000005d0| 69 63 6f 6e 28 53 69 67 | 65 78 48 25 2c a4 5f 52 |icon(Sig|exH%,._R|
|000005e0| 6f 75 6e 64 28 53 69 67 | 65 78 2c 34 29 29 0d 01 |ound(Sig|ex,4))..|
|000005f0| f4 25 43 68 69 53 71 72 | 3d 30 3a f2 73 65 74 76 |.%ChiSqr|=0:.setv|
|00000600| 61 72 69 63 6f 6e 28 43 | 68 69 53 71 72 48 25 2c |aricon(C|hiSqrH%,|
|00000610| 22 22 29 0d 01 fe 23 53 | 74 44 65 76 3d 30 3a f2 |"")...#S|tDev=0:.|
|00000620| 73 65 74 76 61 72 69 63 | 6f 6e 28 53 74 44 65 76 |setvaric|on(StDev|
|00000630| 48 25 2c 22 22 29 0d 02 | 08 0e e3 20 41 25 3d 31 |H%,"")..|... A%=1|
|00000640| 20 b8 20 38 0d 02 12 0f | 50 61 72 61 6d 28 41 25 | . 8....|Param(A%|
|00000650| 29 3d 30 0d 02 1c 1f f2 | 73 65 74 76 61 72 69 63 |)=0.....|setvaric|
|00000660| 6f 6e 28 50 61 72 61 6d | 48 25 28 41 25 29 2c 22 |on(Param|H%(A%),"|
|00000670| 22 29 0d 02 26 0f 45 72 | 72 6f 72 28 41 25 29 3d |")..&.Er|ror(A%)=|
|00000680| 30 0d 02 30 1f f2 73 65 | 74 76 61 72 69 63 6f 6e |0..0..se|tvaricon|
|00000690| 28 45 72 72 6f 72 48 25 | 28 41 25 29 2c 22 22 29 |(ErrorH%|(A%),"")|
|000006a0| 0d 02 3a 11 46 72 6f 7a | 65 6e 25 28 41 25 29 3d |..:.Froz|en%(A%)=|
|000006b0| a3 0d 02 44 1f f2 64 65 | 73 65 6c 65 63 74 69 63 |...D..de|selectic|
|000006c0| 6f 6e 28 46 72 6f 7a 65 | 6e 48 25 28 41 25 29 29 |on(Froze|nH%(A%))|
|000006d0| 0d 02 4e 08 ed 20 41 25 | 0d 02 58 10 77 69 6e 64 |..N.. A%|..X.wind|
|000006e0| 25 3d 4d 6f 64 65 6c 25 | 0d 02 62 26 46 75 6e 63 |%=Model%|..b&Func|
|000006f0| 24 3d 22 22 3a f2 73 65 | 74 76 61 72 69 63 6f 6e |$="":.se|tvaricon|
|00000700| 28 46 75 6e 63 48 25 2c | 46 75 6e 63 24 29 0d 02 |(FuncH%,|Func$)..|
|00000710| 6c 2f 41 75 78 46 75 6e | 63 24 3d 22 22 3a f2 73 |l/AuxFun|c$="":.s|
|00000720| 65 74 76 61 72 69 63 6f | 6e 28 41 75 78 46 75 6e |etvarico|n(AuxFun|
|00000730| 63 48 25 2c 41 75 78 46 | 75 6e 63 24 29 0d 02 76 |cH%,AuxF|unc$)..v|
|00000740| 0e e3 20 41 25 3d 31 20 | b8 20 38 0d 02 80 0f 64 |.. A%=1 |. 8....d|
|00000750| 46 69 24 28 41 25 29 3d | 22 22 0d 02 8a 23 f2 73 |Fi$(A%)=|""...#.s|
|00000760| 65 74 76 61 72 69 63 6f | 6e 28 64 46 69 48 25 28 |etvarico|n(dFiH%(|
|00000770| 41 25 29 2c 64 46 69 24 | 28 41 25 29 29 0d 02 94 |A%),dFi$|(A%))...|
|00000780| 08 ed 20 41 25 0d 02 9e | 3f 44 61 74 61 46 69 6c |.. A%...|?DataFil|
|00000790| 65 24 3d 22 46 69 6c 65 | 20 3d 20 61 64 66 73 3a |e$="File| = adfs:|
|000007a0| 3a 24 2e 30 31 32 33 34 | 35 36 37 38 39 2e 30 31 |:$.01234|56789.01|
|000007b0| 32 33 34 35 36 37 38 39 | 2e 30 31 32 33 34 35 36 |23456789|.0123456|
|000007c0| 37 38 39 22 0d 02 a8 25 | f2 73 65 74 76 61 72 69 |789"...%|.setvari|
|000007d0| 63 6f 6e 28 44 61 74 61 | 46 69 6c 65 48 25 2c 44 |con(Data|FileH%,D|
|000007e0| 61 74 61 46 69 6c 65 24 | 29 0d 02 b2 24 f4 20 4c |ataFile$|)...$. L|
|000007f0| 6f 61 64 20 69 6e 20 64 | 61 74 61 20 66 72 6f 6d |oad in d|ata from|
|00000800| 20 4d 6f 64 65 6c 73 20 | 66 69 6c 65 2e 0d 02 bc | Models |file....|
|00000810| 31 4d 6f 64 65 6c 73 25 | 3d a4 5f 4c 6f 61 64 4d |1Models%|=._LoadM|
|00000820| 6f 64 65 6c 73 28 22 3c | 53 63 69 4d 6f 64 65 6c |odels("<|SciModel|
|00000830| 24 44 69 72 3e 2e 4d 6f | 64 65 6c 73 22 29 0d 02 |$Dir>.Mo|dels")..|
|00000840| c6 05 e1 0d 02 d0 05 3a | 0d 02 da 16 dd 20 a4 5f |.......:|..... ._|
|00000850| 4c 6f 61 64 4d 6f 64 65 | 6c 73 28 46 24 29 0d 02 |LoadMode|ls(F$)..|
|00000860| e4 0b ea 20 41 25 2c 42 | 25 0d 02 ee 0e 4d 6f 64 |... A%,B|%....Mod|
|00000870| 65 6c 73 24 3d 22 22 0d | 02 f8 0c 46 25 3d 8e 28 |els$="".|...F%=.(|
|00000880| 46 24 29 0d 03 02 0f 4d | 25 3d bb 28 a4 72 65 61 |F$)....M|%=.(.rea|
|00000890| 64 29 0d 03 0c 74 e7 20 | 4d 25 3e 32 30 20 8c 20 |d)...t. |M%>20 . |
|000008a0| d9 23 46 25 3a 85 20 30 | 2c 22 46 61 74 61 6c 20 |.#F%:. 0|,"Fatal |
|000008b0| 65 72 72 6f 72 21 20 4e | 6f 20 6d 6f 72 65 20 74 |error! N|o more t|
|000008c0| 68 61 6e 20 32 30 20 6d | 6f 64 65 6c 73 20 61 6c |han 20 m|odels al|
|000008d0| 6c 6f 77 65 64 21 20 50 | 6c 65 61 73 65 20 45 64 |lowed! P|lease Ed|
|000008e0| 69 74 20 74 68 65 20 21 | 53 63 69 4d 6f 64 65 6c |it the !|SciModel|
|000008f0| 20 22 22 4d 6f 64 65 6c | 73 22 22 20 66 69 6c 65 | ""Model|s"" file|
|00000900| 2e 22 3a 20 3d 30 0d 03 | 16 0f e3 20 41 25 3d 31 |.": =0..|... A%=1|
|00000910| 20 b8 20 4d 25 0d 03 20 | 11 4d 54 24 28 41 25 29 | . M%.. |.MT$(A%)|
|00000920| 3d a4 72 65 61 64 0d 03 | 2a 11 4d 46 24 28 41 25 |=.read..|*.MF$(A%|
|00000930| 29 3d a4 72 65 61 64 0d | 03 34 12 4d 41 46 24 28 |)=.read.|.4.MAF$(|
|00000940| 41 25 29 3d a4 72 65 61 | 64 0d 03 3e 0f 44 25 3d |A%)=.rea|d..>.D%=|
|00000950| bb 28 a4 72 65 61 64 29 | 0d 03 48 0e 4d 44 25 28 |.(.read)|..H.MD%(|
|00000960| 41 25 29 3d 44 25 0d 03 | 52 0f e3 20 42 25 3d 31 |A%)=D%..|R.. B%=1|
|00000970| 20 b8 20 44 25 0d 03 5c | 14 4d 44 24 28 41 25 2c | . D%..\|.MD$(A%,|
|00000980| 42 25 29 3d a4 72 65 61 | 64 0d 03 66 08 ed 20 42 |B%)=.rea|d..f.. B|
|00000990| 25 0d 03 70 08 ed 20 41 | 25 0d 03 7a 08 d9 23 46 |%..p.. A|%..z..#F|
|000009a0| 25 0d 03 84 0f e3 20 41 | 25 3d 31 20 b8 20 4d 25 |%..... A|%=1 . M%|
|000009b0| 0d 03 8e 1f 4d 6f 64 65 | 6c 73 24 3d 4d 6f 64 65 |....Mode|ls$=Mode|
|000009c0| 6c 73 24 2b 4d 54 24 28 | 41 25 29 2b 22 2c 22 0d |ls$+MT$(|A%)+",".|
|000009d0| 03 98 08 ed 20 41 25 0d | 03 a2 22 4d 6f 64 65 6c |.... A%.|.."Model|
|000009e0| 73 24 3d c0 4d 6f 64 65 | 6c 73 24 2c a9 28 4d 6f |s$=.Mode|ls$,.(Mo|
|000009f0| 64 65 6c 73 24 29 2d 31 | 29 0d 03 ac 07 3d 4d 25 |dels$)-1|)....=M%|
|00000a00| 0d 03 b6 05 3a 0d 03 c0 | 17 dd 20 f2 5f 53 65 6c |....:...|.. ._Sel|
|00000a10| 65 63 74 4d 6f 64 65 6c | 28 4d 25 29 0d 03 ca 0e |ectModel|(M%)....|
|00000a20| ea 20 42 25 2c 77 69 6e | 64 25 0d 03 d4 13 4d 54 |. B%,win|d%....MT|
|00000a30| 69 74 6c 65 24 3d 4d 54 | 24 28 4d 25 29 0d 03 de |itle$=MT|$(M%)...|
|00000a40| 11 46 75 6e 63 24 3d 4d | 46 24 28 4d 25 29 0d 03 |.Func$=M|F$(M%)..|
|00000a50| e8 15 41 75 78 46 75 6e | 63 24 3d 4d 41 46 24 28 |..AuxFun|c$=MAF$(|
|00000a60| 4d 25 29 0d 03 f2 13 50 | 61 72 61 6d 73 25 3d 4d |M%)....P|arams%=M|
|00000a70| 44 25 28 4d 25 29 0d 03 | fc 14 e3 20 42 25 3d 31 |D%(M%)..|... B%=1|
|00000a80| 20 b8 20 50 61 72 61 6d | 73 25 0d 04 06 17 64 46 | . Param|s%....dF|
|00000a90| 69 24 28 42 25 29 3d 4d | 44 24 28 4d 25 2c 42 25 |i$(B%)=M|D$(M%,B%|
|00000aa0| 29 0d 04 10 08 ed 20 42 | 25 0d 04 1a 10 77 69 6e |)..... B|%....win|
|00000ab0| 64 25 3d 4d 6f 64 65 6c | 25 0d 04 24 21 f2 73 65 |d%=Model|%..$!.se|
|00000ac0| 74 76 61 72 69 63 6f 6e | 28 4d 54 69 74 6c 65 48 |tvaricon|(MTitleH|
|00000ad0| 25 2c 4d 54 69 74 6c 65 | 24 29 0d 04 2e 1d f2 73 |%,MTitle|$).....s|
|00000ae0| 65 74 76 61 72 69 63 6f | 6e 28 46 75 6e 63 48 25 |etvarico|n(FuncH%|
|00000af0| 2c 46 75 6e 63 24 29 0d | 04 38 23 f2 73 65 74 76 |,Func$).|.8#.setv|
|00000b00| 61 72 69 63 6f 6e 28 41 | 75 78 46 75 6e 63 48 25 |aricon(A|uxFuncH%|
|00000b10| 2c 41 75 78 46 75 6e 63 | 24 29 0d 04 42 14 e3 20 |,AuxFunc|$)..B.. |
|00000b20| 42 25 3d 31 20 b8 20 50 | 61 72 61 6d 73 25 0d 04 |B%=1 . P|arams%..|
|00000b30| 4c 23 f2 73 65 74 76 61 | 72 69 63 6f 6e 28 64 46 |L#.setva|ricon(dF|
|00000b40| 69 48 25 28 42 25 29 2c | 64 46 69 24 28 42 25 29 |iH%(B%),|dFi$(B%)|
|00000b50| 29 0d 04 56 08 ed 20 42 | 25 0d 04 60 16 e3 20 42 |)..V.. B|%..`.. B|
|00000b60| 25 3d 50 61 72 61 6d 73 | 25 2b 31 20 b8 20 38 0d |%=Params|%+1 . 8.|
|00000b70| 04 6a 1d f2 73 65 74 76 | 61 72 69 63 6f 6e 28 64 |.j..setv|aricon(d|
|00000b80| 46 69 48 25 28 42 25 29 | 2c 22 22 29 0d 04 74 08 |FiH%(B%)|,"")..t.|
|00000b90| ed 20 42 25 0d 04 7e 14 | 77 69 6e 64 25 3d 50 61 |. B%..~.|wind%=Pa|
|00000ba0| 72 61 6d 65 74 65 72 25 | 0d 04 88 24 f2 73 65 74 |rameter%|...$.set|
|00000bb0| 76 61 72 69 63 6f 6e 28 | 50 61 72 61 6d 73 48 25 |varicon(|ParamsH%|
|00000bc0| 2c c3 28 50 61 72 61 6d | 73 25 29 29 0d 04 92 0e |,.(Param|s%))....|
|00000bd0| e3 20 42 25 3d 31 20 b8 | 20 38 0d 04 9c 0f 50 61 |. B%=1 .| 8....Pa|
|00000be0| 72 61 6d 28 42 25 29 3d | 30 0d 04 a6 1f f2 73 65 |ram(B%)=|0.....se|
|00000bf0| 74 76 61 72 69 63 6f 6e | 28 50 61 72 61 6d 48 25 |tvaricon|(ParamH%|
|00000c00| 28 42 25 29 2c 22 22 29 | 0d 04 b0 1f f2 73 65 74 |(B%),"")|.....set|
|00000c10| 76 61 72 69 63 6f 6e 28 | 45 72 72 6f 72 48 25 28 |varicon(|ErrorH%(|
|00000c20| 42 25 29 2c 22 22 29 0d | 04 ba 18 f2 64 65 73 65 |B%),"").|....dese|
|00000c30| 6c 65 63 74 69 63 6f 6e | 28 42 25 2b 34 32 29 0d |lecticon|(B%+42).|
|00000c40| 04 c4 08 ed 20 42 25 0d | 04 ce 1c f2 73 65 74 76 |.... B%.|....setv|
|00000c50| 61 72 69 63 6f 6e 28 43 | 68 69 53 71 72 48 25 2c |aricon(C|hiSqrH%,|
|00000c60| 22 22 29 0d 04 d8 1b f2 | 73 65 74 76 61 72 69 63 |"").....|setvaric|
|00000c70| 6f 6e 28 53 74 44 65 76 | 48 25 2c 22 22 29 0d 04 |on(StDev|H%,"")..|
|00000c80| e2 05 e1 0d 04 ec 05 3a | 0d 04 f6 35 dd 20 a4 69 |.......:|...5. .i|
|00000c90| 63 6f 6e 28 77 69 6e 64 | 25 2c 78 31 25 2c 79 31 |con(wind|%,x1%,y1|
|00000ca0| 25 2c 78 32 25 2c 79 32 | 25 2c 66 6c 61 67 73 25 |%,x2%,y2|%,flags%|
|00000cb0| 2c 69 31 25 2c 69 32 25 | 2c 69 33 25 29 0d 05 00 |,i1%,i2%|,i3%)...|
|00000cc0| 08 ea 20 68 25 0d 05 0a | 1e 21 62 6c 6f 63 6b 25 |.. h%...|.!block%|
|00000cd0| 3d 77 69 6e 64 25 3a 62 | 6c 6f 63 6b 25 21 34 3d |=wind%:b|lock%!4=|
|00000ce0| 78 31 25 0d 05 14 1e 62 | 6c 6f 63 6b 25 21 38 3d |x1%....b|lock%!8=|
|00000cf0| 79 31 25 3a 62 6c 6f 63 | 6b 25 21 31 32 3d 78 32 |y1%:bloc|k%!12=x2|
|00000d00| 25 0d 05 1e 22 62 6c 6f | 63 6b 25 21 31 36 3d 79 |%..."blo|ck%!16=y|
|00000d10| 32 25 3a 62 6c 6f 63 6b | 25 21 32 30 3d 66 6c 61 |2%:block|%!20=fla|
|00000d20| 67 73 25 0d 05 28 1f 62 | 6c 6f 63 6b 25 21 32 34 |gs%..(.b|lock%!24|
|00000d30| 3d 69 31 25 3a 62 6c 6f | 63 6b 25 21 32 38 3d 69 |=i1%:blo|ck%!28=i|
|00000d40| 32 25 0d 05 32 11 62 6c | 6f 63 6b 25 21 33 32 3d |2%..2.bl|ock%!32=|
|00000d50| 69 33 25 0d 05 3c 25 c8 | 99 20 22 57 69 6d 70 5f |i3%..<%.|. "Wimp_|
|00000d60| 43 72 65 61 74 65 49 63 | 6f 6e 22 2c 2c 62 6c 6f |CreateIc|on",,blo|
|00000d70| 63 6b 25 20 b8 20 68 25 | 0d 05 46 07 3d 68 25 0d |ck% . h%|..F.=h%.|
|00000d80| 05 50 05 3a 0d 05 5a 11 | dd 20 f2 5f 54 65 6d 70 |.P.:..Z.|. ._Temp|
|00000d90| 6c 61 74 65 73 0d 05 64 | 23 f4 20 4c 4f 43 41 4c |lates..d|#. LOCAL|
|00000da0| 20 57 6f 72 6b 25 2c 50 | 6f 73 25 2c 45 6e 64 49 | Work%,P|os%,EndI|
|00000db0| 6e 64 25 2c 49 6e 64 25 | 0d 05 6e 27 de 20 57 6f |nd%,Ind%|..n'. Wo|
|00000dc0| 72 6b 25 20 26 31 38 30 | 30 2c 49 6e 64 25 20 26 |rk% &180|0,Ind% &|
|00000dd0| 31 38 30 30 2c 49 64 65 | 6e 74 25 20 26 32 30 0d |1800,Ide|nt% &20.|
|00000de0| 05 78 16 45 6e 64 49 6e | 64 25 3d 49 6e 64 25 2b |.x.EndIn|d%=Ind%+|
|00000df0| 26 31 38 30 30 0d 05 82 | 36 c8 99 20 22 57 69 6d |&1800...|6.. "Wim|
|00000e00| 70 5f 4f 70 65 6e 54 65 | 6d 70 6c 61 74 65 22 2c |p_OpenTe|mplate",|
|00000e10| 2c 22 3c 53 63 69 4d 6f | 64 65 6c 24 44 69 72 3e |,"<SciMo|del$Dir>|
|00000e20| 2e 54 65 6d 70 6c 61 74 | 65 73 22 0d 05 8c 18 f4 |.Templat|es".....|
|00000e30| 20 49 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 77 69 6e | Informa|tion win|
|00000e40| 64 6f 77 0d 05 96 1a 24 | 49 64 65 6e 74 25 3d 22 |dow....$|Ident%="|
|00000e50| 49 6e 66 6f 22 2b c4 38 | 2c bd 31 33 29 0d 05 a0 |Info"+.8|,.13)...|
|00000e60| 0a 50 6f 73 25 3d 30 0d | 05 aa 4e c8 99 20 22 57 |.Pos%=0.|..N.. "W|
|00000e70| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|00000e80| 22 2c 2c 57 6f 72 6b 25 | 2c 49 6e 64 25 2c 45 6e |",,Work%|,Ind%,En|
|00000e90| 64 49 6e 64 25 2c 2d 31 | 2c 49 64 65 6e 74 25 2c |dInd%,-1|,Ident%,|
|00000ea0| 50 6f 73 25 20 b8 20 2c | 2c 49 6e 64 25 2c 2c 2c |Pos% . ,|,Ind%,,,|
|00000eb0| 2c 50 6f 73 25 0d 05 b4 | 29 c8 99 20 22 57 69 6d |,Pos%...|).. "Wim|
|00000ec0| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|00000ed0| 2c 57 6f 72 6b 25 20 b8 | 20 49 6e 66 6f 25 0d 05 |,Work% .| Info%..|
|00000ee0| be 31 e7 20 50 6f 73 25 | 3d 30 20 85 20 31 2c 22 |.1. Pos%|=0 . 1,"|
|00000ef0| 43 61 6e 27 74 20 66 69 | 6e 64 20 77 69 6e 64 6f |Can't fi|nd windo|
|00000f00| 77 20 64 65 66 69 6e 69 | 74 69 6f 6e 22 3a e0 0d |w defini|tion":..|
|00000f10| 05 c8 13 f4 20 53 61 76 | 65 20 66 69 6c 65 20 62 |.... Sav|e file b|
|00000f20| 6f 78 0d 05 d2 1a 24 49 | 64 65 6e 74 25 3d 22 46 |ox....$I|dent%="F|
|00000f30| 69 6c 65 22 2b c4 38 2c | bd 31 33 29 0d 05 dc 0a |ile"+.8,|.13)....|
|00000f40| 50 6f 73 25 3d 30 0d 05 | e6 4e c8 99 20 22 57 69 |Pos%=0..|.N.. "Wi|
|00000f50| 6d 70 5f 4c 6f 61 64 54 | 65 6d 70 6c 61 74 65 22 |mp_LoadT|emplate"|
|00000f60| 2c 2c 57 6f 72 6b 25 2c | 49 6e 64 25 2c 45 6e 64 |,,Work%,|Ind%,End|
|00000f70| 49 6e 64 25 2c 2d 31 2c | 49 64 65 6e 74 25 2c 50 |Ind%,-1,|Ident%,P|
|00000f80| 6f 73 25 20 b8 20 2c 2c | 49 6e 64 25 2c 2c 2c 2c |os% . ,,|Ind%,,,,|
|00000f90| 50 6f 73 25 0d 05 f0 29 | c8 99 20 22 57 69 6d 70 |Pos%...)|.. "Wimp|
|00000fa0| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00000fb0| 57 6f 72 6b 25 20 b8 20 | 66 69 6c 65 25 0d 05 fa |Work% . |file%...|
|00000fc0| 31 e7 20 50 6f 73 25 3d | 30 20 85 20 31 2c 22 43 |1. Pos%=|0 . 1,"C|
|00000fd0| 61 6e 27 74 20 66 69 6e | 64 20 77 69 6e 64 6f 77 |an't fin|d window|
|00000fe0| 20 64 65 66 69 6e 69 74 | 69 6f 6e 22 3a e0 0d 06 | definit|ion":...|
|00000ff0| 04 1b f4 20 61 64 64 20 | 69 6e 20 73 61 76 65 20 |... add |in save |
|00001000| 62 6f 78 20 69 63 6f 6e | 73 0d 06 0e 39 6f 6b 25 |box icon|s...9ok%|
|00001010| 3d a4 69 63 6f 6e 28 66 | 69 6c 65 25 2c 31 39 32 |=.icon(f|ile%,192|
|00001020| 2c 2d 31 36 30 2c 32 33 | 38 2c 2d 31 31 32 2c 26 |,-160,23|8,-112,&|
|00001030| 43 37 30 31 39 31 33 44 | 2c 6f 6b 73 25 2c 30 2c |C701913D|,oks%,0,|
|00001040| 33 29 0d 06 18 42 6e 61 | 6d 65 25 3d a4 69 63 6f |3)...Bna|me%=.ico|
|00001050| 6e 28 66 69 6c 65 25 2c | 31 30 2c 2d 31 36 30 2c |n(file%,|10,-160,|
|00001060| 31 38 36 2c 2d 31 31 32 | 2c 26 37 30 30 46 31 33 |186,-112|,&700F13|
|00001070| 44 2c 66 6e 61 6d 65 25 | 2c 76 61 6c 69 64 25 2c |D,fname%|,valid%,|
|00001080| 32 35 36 29 0d 06 22 3d | 66 69 63 6f 6e 25 3d a4 |256).."=|ficon%=.|
|00001090| 69 63 6f 6e 28 66 69 6c | 65 25 2c 37 38 2c 2d 39 |icon(fil|e%,78,-9|
|000010a0| 32 2c 31 34 36 2c 2d 32 | 30 2c 26 44 37 30 30 36 |2,146,-2|0,&D7006|
|000010b0| 31 30 32 2c 73 70 72 69 | 74 65 25 2c 31 2c 32 30 |102,spri|te%,1,20|
|000010c0| 29 0d 06 2c 16 f4 20 50 | 61 72 61 6d 65 74 65 72 |)..,.. P|arameter|
|000010d0| 20 77 69 6e 64 6f 77 0d | 06 36 1f 24 49 64 65 6e | window.|.6.$Iden|
|000010e0| 74 25 3d 22 50 61 72 61 | 6d 65 74 65 72 22 2b c4 |t%="Para|meter"+.|
|000010f0| 33 2c bd 31 33 29 0d 06 | 40 0a 50 6f 73 25 3d 30 |3,.13)..|@.Pos%=0|
|00001100| 0d 06 4a 4e c8 99 20 22 | 57 69 6d 70 5f 4c 6f 61 |..JN.. "|Wimp_Loa|
|00001110| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 57 6f 72 6b |dTemplat|e",,Work|
|00001120| 25 2c 49 6e 64 25 2c 45 | 6e 64 49 6e 64 25 2c 2d |%,Ind%,E|ndInd%,-|
|00001130| 31 2c 49 64 65 6e 74 25 | 2c 50 6f 73 25 20 b8 20 |1,Ident%|,Pos% . |
|00001140| 2c 2c 49 6e 64 25 2c 2c | 2c 2c 50 6f 73 25 0d 06 |,,Ind%,,|,,Pos%..|
|00001150| 54 2e c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |T... "Wi|mp_Creat|
|00001160| 65 57 69 6e 64 6f 77 22 | 2c 2c 57 6f 72 6b 25 20 |eWindow"|,,Work% |
|00001170| b8 20 50 61 72 61 6d 65 | 74 65 72 25 0d 06 5e 31 |. Parame|ter%..^1|
|00001180| e7 20 50 6f 73 25 3d 30 | 20 85 20 31 2c 22 43 61 |. Pos%=0| . 1,"Ca|
|00001190| 6e 27 74 20 66 69 6e 64 | 20 77 69 6e 64 6f 77 20 |n't find| window |
|000011a0| 64 65 66 69 6e 69 74 69 | 6f 6e 22 3a e0 0d 06 68 |definiti|on":...h|
|000011b0| 0e 50 61 72 61 6d 73 48 | 25 3d 31 0d 06 72 0f 4d |.ParamsH|%=1..r.M|
|000011c0| 61 78 49 74 65 72 48 25 | 3d 33 0d 06 7c 0d 53 69 |axIterH%|=3..|.Si|
|000011d0| 67 65 78 48 25 3d 35 0d | 06 86 0e e3 20 41 25 3d |gexH%=5.|.... A%=|
|000011e0| 31 20 b8 20 38 0d 06 90 | 16 50 61 72 61 6d 48 25 |1 . 8...|.ParamH%|
|000011f0| 28 41 25 29 3d 33 2b 34 | 2a 41 25 0d 06 9a 16 45 |(A%)=3+4|*A%....E|
|00001200| 72 72 6f 72 48 25 28 41 | 25 29 3d 35 2b 34 2a 41 |rrorH%(A|%)=5+4*A|
|00001210| 25 0d 06 a4 08 ed 20 41 | 25 0d 06 ae 0f 43 68 69 |%..... A|%....Chi|
|00001220| 53 71 72 48 25 3d 33 39 | 0d 06 b8 0e 53 74 44 65 |SqrH%=39|....StDe|
|00001230| 76 48 25 3d 34 31 0d 06 | c2 12 f4 20 4d 6f 64 65 |vH%=41..|... Mode|
|00001240| 6c 20 77 69 6e 64 6f 77 | 0d 06 cc 1b 24 49 64 65 |l window|....$Ide|
|00001250| 6e 74 25 3d 22 4d 6f 64 | 65 6c 22 2b c4 37 2c bd |nt%="Mod|el"+.7,.|
|00001260| 31 33 29 0d 06 d6 0a 50 | 6f 73 25 3d 30 0d 06 e0 |13)....P|os%=0...|
|00001270| 4e c8 99 20 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |N.. "Wim|p_LoadTe|
|00001280| 6d 70 6c 61 74 65 22 2c | 2c 57 6f 72 6b 25 2c 49 |mplate",|,Work%,I|
|00001290| 6e 64 25 2c 45 6e 64 49 | 6e 64 25 2c 2d 31 2c 49 |nd%,EndI|nd%,-1,I|
|000012a0| 64 65 6e 74 25 2c 50 6f | 73 25 20 b8 20 2c 2c 49 |dent%,Po|s% . ,,I|
|000012b0| 6e 64 25 2c 2c 2c 2c 50 | 6f 73 25 0d 06 ea 2a c8 |nd%,,,,P|os%...*.|
|000012c0| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 57 69 |. "Wimp_|CreateWi|
|000012d0| 6e 64 6f 77 22 2c 2c 57 | 6f 72 6b 25 20 b8 20 4d |ndow",,W|ork% . M|
|000012e0| 6f 64 65 6c 25 0d 06 f4 | 31 e7 20 50 6f 73 25 3d |odel%...|1. Pos%=|
|000012f0| 30 20 85 20 31 2c 22 43 | 61 6e 27 74 20 66 69 6e |0 . 1,"C|an't fin|
|00001300| 64 20 77 69 6e 64 6f 77 | 20 64 65 66 69 6e 69 74 |d window| definit|
|00001310| 69 6f 6e 22 3a e0 0d 06 | fe 0e 4d 54 69 74 6c 65 |ion":...|..MTitle|
|00001320| 48 25 3d 31 0d 07 08 0c | 46 75 6e 63 48 25 3d 33 |H%=1....|FuncH%=3|
|00001330| 0d 07 12 0f 41 75 78 46 | 75 6e 63 48 25 3d 35 0d |....AuxF|uncH%=5.|
|00001340| 07 1c 24 e3 20 41 25 3d | 31 20 b8 20 38 3a 64 46 |..$. A%=|1 . 8:dF|
|00001350| 69 48 25 28 41 25 29 3d | 35 2b 32 2a 41 25 3a ed |iH%(A%)=|5+2*A%:.|
|00001360| 20 41 25 0d 07 26 11 44 | 61 74 61 46 69 6c 65 48 | A%..&.D|ataFileH|
|00001370| 25 3d 32 33 0d 07 30 1b | c8 99 20 22 57 69 6d 70 |%=23..0.|.. "Wimp|
|00001380| 5f 43 6c 6f 73 65 54 65 | 6d 70 6c 61 74 65 22 0d |_CloseTe|mplate".|
|00001390| 07 3a 05 e1 0d 07 44 05 | 3a 0d 07 4e 0c dd 20 f2 |.:....D.|:..N.. .|
|000013a0| 5f 50 6f 6c 6c 0d 07 58 | 0f 6d 61 73 6b 25 3d 26 |_Poll..X|.mask%=&|
|000013b0| 31 38 33 31 0d 07 62 29 | c8 99 20 22 57 69 6d 70 |1831..b)|.. "Wimp|
|000013c0| 5f 50 6f 6c 6c 22 2c 6d | 61 73 6b 25 2c 62 6c 6f |_Poll",m|ask%,blo|
|000013d0| 63 6b 25 20 b8 20 72 65 | 61 73 6f 6e 25 0d 07 6c |ck% . re|ason%..l|
|000013e0| 10 c8 8e 20 72 65 61 73 | 6f 6e 25 20 ca 0d 07 76 |... reas|on% ...v|
|000013f0| 1e 20 20 c9 20 31 3a 20 | f2 72 65 64 72 61 77 5f |.  . 1: |.redraw_|
|00001400| 77 69 6e 28 62 6c 6f 63 | 6b 25 29 0d 07 80 1c 20 |win(bloc|k%).... |
|00001410| 20 c9 20 32 3a 20 f2 6f | 70 65 6e 5f 77 69 6e 28 | . 2: .o|pen_win(|
|00001420| 62 6c 6f 63 6b 25 29 0d | 07 8a 1d 20 20 c9 20 33 |block%).|...  . 3|
|00001430| 3a 20 f2 63 6c 6f 73 65 | 5f 77 69 6e 28 62 6c 6f |: .close|_win(blo|
|00001440| 63 6b 25 29 0d 07 94 19 | 20 20 c9 20 36 3a 20 f2 |ck%)....|  . 6: .|
|00001450| 6d 6f 75 73 65 28 62 6c | 6f 63 6b 25 29 0d 07 9e |mouse(bl|ock%)...|
|00001460| 20 20 20 c9 20 37 3a 20 | f2 75 73 65 72 64 72 61 |   . 7: |.userdra|
|00001470| 67 64 6f 6e 65 28 62 6c | 6f 63 6b 25 29 0d 07 a8 |gdone(bl|ock%)...|
|00001480| 17 20 20 c9 20 38 3a 20 | f2 6b 65 79 28 62 6c 6f |.  . 8: |.key(blo|
|00001490| 63 6b 25 29 0d 07 b2 29 | 20 20 c9 20 39 3a 20 f2 |ck%)...)|  . 9: .|
|000014a0| 6d 65 6e 75 73 65 6c 65 | 63 74 28 62 6c 6f 63 6b |menusele|ct(block|
|000014b0| 25 21 30 2c 62 6c 6f 63 | 6b 25 21 34 29 0d 07 bc |%!0,bloc|k%!4)...|
|000014c0| 1e 20 20 c9 20 31 37 2c | 31 38 3a f2 6d 65 73 73 |.  . 17,|18:.mess|
|000014d0| 61 67 65 28 62 6c 6f 63 | 6b 25 29 0d 07 c6 19 20 |age(bloc|k%).... |
|000014e0| 20 c9 20 31 39 3a f2 6e | 6f 61 63 6b 28 62 6c 6f | . 19:.n|oack(blo|
|000014f0| 63 6b 25 29 0d 07 d0 05 | cb 0d 07 da 05 e1 0d 07 |ck%)....|........|
|00001500| e4 05 3a 0d 07 ee 15 dd | 20 f2 72 65 64 72 61 77 |..:.....| .redraw|
|00001510| 5f 77 69 6e 28 62 25 29 | 0d 07 f8 11 ea 20 77 69 |_win(b%)|..... wi|
|00001520| 6e 64 25 2c 6d 6f 72 65 | 25 0d 08 02 0e 77 69 6e |nd%,more|%....win|
|00001530| 64 25 3d 62 25 21 30 0d | 08 0c 26 c8 99 20 22 57 |d%=b%!0.|..&.. "W|
|00001540| 69 6d 70 5f 52 65 64 72 | 61 77 57 69 6e 64 6f 77 |imp_Redr|awWindow|
|00001550| 22 2c 2c 62 25 20 b8 20 | 6d 6f 72 65 25 0d 08 16 |",,b% . |more%...|
|00001560| 0c c8 95 20 6d 6f 72 65 | 25 0d 08 20 26 c8 99 20 |... more|%.. &.. |
|00001570| 22 57 69 6d 70 5f 47 65 | 74 52 65 63 74 61 6e 67 |"Wimp_Ge|tRectang|
|00001580| 6c 65 22 2c 2c 62 25 20 | b8 20 6d 6f 72 65 25 0d |le",,b% |. more%.|
|00001590| 08 2a 05 ce 0d 08 34 05 | e1 0d 08 3e 05 3a 0d 08 |.*....4.|...>.:..|
|000015a0| 48 13 dd 20 f2 6f 70 65 | 6e 5f 77 69 6e 28 62 25 |H.. .ope|n_win(b%|
|000015b0| 29 0d 08 52 1c c8 99 20 | 22 57 69 6d 70 5f 4f 70 |)..R... |"Wimp_Op|
|000015c0| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 62 25 0d 08 5c |enWindow|",,b%..\|
|000015d0| 05 e1 0d 08 66 05 3a 0d | 08 70 14 dd 20 f2 63 6c |....f.:.|.p.. .cl|
|000015e0| 6f 73 65 5f 77 69 6e 28 | 62 25 29 0d 08 7a 1d c8 |ose_win(|b%)..z..|
|000015f0| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 57 69 6e |. "Wimp_|CloseWin|
|00001600| 64 6f 77 22 2c 2c 62 25 | 0d 08 84 05 e1 0d 08 8e |dow",,b%|........|
|00001610| 05 3a 0d 08 98 10 dd 20 | f2 6d 6f 75 73 65 28 62 |.:..... |.mouse(b|
|00001620| 25 29 0d 08 a2 1a ea 20 | 62 75 74 74 6f 6e 73 25 |%)..... |buttons%|
|00001630| 2c 77 69 6e 64 25 2c 69 | 63 6f 6e 25 0d 08 ac 11 |,wind%,i|con%....|
|00001640| 62 75 74 74 6f 6e 73 25 | 3d 62 25 21 38 0d 08 b6 |buttons%|=b%!8...|
|00001650| 0f 77 69 6e 64 25 3d 62 | 25 21 31 32 0d 08 c0 0f |.wind%=b|%!12....|
|00001660| 69 63 6f 6e 25 3d 62 25 | 21 31 36 0d 08 ca 1c e7 |icon%=b%|!16.....|
|00001670| 20 62 75 74 74 6f 6e 73 | 25 3d 32 20 8c 20 f2 6d | buttons|%=2 . .m|
|00001680| 65 6e 75 28 62 25 29 0d | 08 d4 1f e7 20 62 75 74 |enu(b%).|.... but|
|00001690| 74 6f 6e 73 25 3d 34 20 | 84 20 62 75 74 74 6f 6e |tons%=4 |. button|
|000016a0| 73 25 3d 31 20 8c 0d 08 | de 0e c8 8e 20 77 69 6e |s%=1 ...|.... win|
|000016b0| 64 25 20 ca 0d 08 e8 56 | c9 20 2d 32 3a e7 20 69 |d% ....V|. -2:. i|
|000016c0| 63 6f 6e 25 3d 73 69 63 | 6f 6e 25 20 8c 20 e7 20 |con%=sic|on% . . |
|000016d0| 44 61 74 61 25 20 8c 20 | f2 6f 70 65 6e 77 69 6e |Data% . |.openwin|
|000016e0| 64 6f 77 28 4d 6f 64 65 | 6c 25 29 20 8b 20 f2 6d |dow(Mode|l%) . .m|
|000016f0| 6f 61 6e 28 22 4e 6f 20 | 64 61 74 61 20 73 65 74 |oan("No |data set|
|00001700| 20 6c 6f 61 64 65 64 21 | 22 29 0d 08 f2 3a c9 20 | loaded!|")...:. |
|00001710| 50 61 72 61 6d 65 74 65 | 72 25 3a e7 20 69 63 6f |Paramete|r%:. ico|
|00001720| 6e 25 3e 34 31 20 80 20 | 69 63 6f 6e 25 3c 35 31 |n%>41 . |icon%<51|
|00001730| 20 8c 20 ef 20 37 3a f2 | 67 65 74 70 61 72 61 6d | . . 7:.|getparam|
|00001740| 76 61 72 73 0d 08 fc 05 | cb 0d 09 06 05 cd 0d 09 |vars....|........|
|00001750| 10 2a e7 20 69 63 6f 6e | 25 3d 66 69 63 6f 6e 25 |.*. icon|%=ficon%|
|00001760| 20 80 20 28 62 75 74 74 | 6f 6e 73 25 20 80 20 26 | . (butt|ons% . &|
|00001770| 35 30 29 3c 3e 30 20 8c | 0d 09 1a 12 21 62 6c 6f |50)<>0 .|....!blo|
|00001780| 63 6b 32 25 3d 66 69 6c | 65 25 0d 09 24 25 c8 99 |ck2%=fil|e%..$%..|
|00001790| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 | "Wimp_G|etWindow|
|000017a0| 53 74 61 74 65 22 2c 2c | 62 6c 6f 63 6b 32 25 0d |State",,|block2%.|
|000017b0| 09 2e 1d 77 65 78 25 3d | 62 6c 6f 63 6b 32 25 21 |...wex%=|block2%!|
|000017c0| 34 2d 62 6c 6f 63 6b 32 | 25 21 32 30 0d 09 38 1e |4-block2|%!20..8.|
|000017d0| 77 65 79 25 3d 62 6c 6f | 63 6b 32 25 21 31 36 2d |wey%=blo|ck2%!16-|
|000017e0| 62 6c 6f 63 6b 32 25 21 | 32 34 0d 09 42 14 62 6c |block2%!|24..B.bl|
|000017f0| 6f 63 6b 32 25 21 34 3d | 66 69 63 6f 6e 25 0d 09 |ock2%!4=|ficon%..|
|00001800| 4c 23 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |L#.. "Wi|mp_GetIc|
|00001810| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 32 |onState"|,,block2|
|00001820| 25 0d 09 56 1f 62 6c 6f | 63 6b 32 25 21 30 3d 66 |%..V.blo|ck2%!0=f|
|00001830| 69 6c 65 25 3a 62 6c 6f | 63 6b 32 25 21 34 3d 35 |ile%:blo|ck2%!4=5|
|00001840| 0d 09 60 37 62 6c 6f 63 | 6b 32 25 21 38 3d 62 6c |..`7bloc|k2%!8=bl|
|00001850| 6f 63 6b 32 25 21 38 2b | 77 65 78 25 3a 62 6c 6f |ock2%!8+|wex%:blo|
|00001860| 63 6b 32 25 21 31 32 3d | 62 6c 6f 63 6b 32 25 21 |ck2%!12=|block2%!|
|00001870| 31 32 2b 77 65 79 25 0d | 09 6a 39 62 6c 6f 63 6b |12+wey%.|.j9block|
|00001880| 32 25 21 31 36 3d 62 6c | 6f 63 6b 32 25 21 31 36 |2%!16=bl|ock2%!16|
|00001890| 2b 77 65 78 25 3a 62 6c | 6f 63 6b 32 25 21 32 30 |+wex%:bl|ock2%!20|
|000018a0| 3d 62 6c 6f 63 6b 32 25 | 21 32 30 2b 77 65 79 25 |=block2%|!20+wey%|
|000018b0| 0d 09 74 1d 62 6c 6f 63 | 6b 32 25 21 32 34 3d 30 |..t.bloc|k2%!24=0|
|000018c0| 3a 62 6c 6f 63 6b 32 25 | 21 32 38 3d 30 0d 09 7e |:block2%|!28=0..~|
|000018d0| 2d 62 6c 6f 63 6b 32 25 | 21 33 32 3d 26 37 46 46 |-block2%|!32=&7FF|
|000018e0| 46 46 46 46 46 3a 62 6c | 6f 63 6b 32 25 21 33 36 |FFFFF:bl|ock2%!36|
|000018f0| 3d 26 37 46 46 46 46 46 | 46 46 0d 09 88 1e c8 99 |=&7FFFFF|FF......|
|00001900| 20 22 57 69 6d 70 5f 44 | 72 61 67 42 6f 78 22 2c | "Wimp_D|ragBox",|
|00001910| 2c 62 6c 6f 63 6b 32 25 | 0d 09 92 05 cc 0d 09 9c |,block2%|........|
|00001920| 35 e7 20 69 63 6f 6e 25 | 3d 6f 6b 25 20 80 20 28 |5. icon%|=ok% . (|
|00001930| 62 75 74 74 6f 6e 73 25 | 20 80 20 35 29 3e 30 20 |buttons%| . 5)>0 |
|00001940| 8c 20 f2 73 61 76 65 69 | 74 28 24 66 6e 61 6d 65 |. .savei|t($fname|
|00001950| 25 29 0d 09 a6 05 cd 0d | 09 b0 05 e1 0d 09 ba 05 |%)......|........|
|00001960| 3a 0d 09 c4 1c dd 20 f2 | 64 65 73 65 6c 65 63 74 |:..... .|deselect|
|00001970| 69 63 6f 6e 28 48 61 6e | 64 6c 65 25 29 0d 09 ce |icon(Han|dle%)...|
|00001980| 14 69 63 6f 6e 62 6c 6b | 25 21 30 3d 77 69 6e 64 |.iconblk|%!0=wind|
|00001990| 25 0d 09 d8 16 69 63 6f | 6e 62 6c 6b 25 21 34 3d |%....ico|nblk%!4=|
|000019a0| 48 61 6e 64 6c 65 25 0d | 09 e2 10 69 63 6f 6e 62 |Handle%.|...iconb|
|000019b0| 6c 6b 25 21 38 3d 30 0d | 09 ec 17 69 63 6f 6e 62 |lk%!8=0.|...iconb|
|000019c0| 6c 6b 25 21 31 32 3d 26 | 32 30 30 30 30 30 0d 09 |lk%!12=&|200000..|
|000019d0| f6 24 c8 99 20 22 57 69 | 6d 70 5f 53 65 74 49 63 |.$.. "Wi|mp_SetIc|
|000019e0| 6f 6e 53 74 61 74 65 22 | 2c 2c 69 63 6f 6e 62 6c |onState"|,,iconbl|
|000019f0| 6b 25 0d 0a 00 05 e1 0d | 0a 0a 05 3a 0d 0a 14 1a |k%......|...:....|
|00001a00| dd 20 f2 73 65 6c 65 63 | 74 69 63 6f 6e 28 48 61 |. .selec|ticon(Ha|
|00001a10| 6e 64 6c 65 25 29 0d 0a | 1e 14 69 63 6f 6e 62 6c |ndle%)..|..iconbl|
|00001a20| 6b 25 21 30 3d 77 69 6e | 64 25 0d 0a 28 16 69 63 |k%!0=win|d%..(.ic|
|00001a30| 6f 6e 62 6c 6b 25 21 34 | 3d 48 61 6e 64 6c 65 25 |onblk%!4|=Handle%|
|00001a40| 0d 0a 32 16 69 63 6f 6e | 62 6c 6b 25 21 38 3d 26 |..2.icon|blk%!8=&|
|00001a50| 32 30 30 30 30 30 0d 0a | 3c 17 69 63 6f 6e 62 6c |200000..|<.iconbl|
|00001a60| 6b 25 21 31 32 3d 26 32 | 30 30 30 30 30 0d 0a 46 |k%!12=&2|00000..F|
|00001a70| 24 c8 99 20 22 57 69 6d | 70 5f 53 65 74 49 63 6f |$.. "Wim|p_SetIco|
|00001a80| 6e 53 74 61 74 65 22 2c | 2c 69 63 6f 6e 62 6c 6b |nState",|,iconblk|
|00001a90| 25 0d 0a 50 05 e1 0d 0a | 5a 05 3a 0d 0a 64 18 dd |%..P....|Z.:..d..|
|00001aa0| 20 f2 67 72 65 79 69 63 | 6f 6e 28 48 61 6e 64 6c | .greyic|on(Handl|
|00001ab0| 65 25 29 0d 0a 6e 14 69 | 63 6f 6e 62 6c 6b 25 21 |e%)..n.i|conblk%!|
|00001ac0| 30 3d 77 69 6e 64 25 0d | 0a 78 16 69 63 6f 6e 62 |0=wind%.|.x.iconb|
|00001ad0| 6c 6b 25 21 34 3d 48 61 | 6e 64 6c 65 25 0d 0a 82 |lk%!4=Ha|ndle%...|
|00001ae0| 16 69 63 6f 6e 62 6c 6b | 25 21 38 3d 26 34 30 30 |.iconblk|%!8=&400|
|00001af0| 30 30 30 0d 0a 8c 17 69 | 63 6f 6e 62 6c 6b 25 21 |000....i|conblk%!|
|00001b00| 31 32 3d 26 34 30 30 30 | 30 30 0d 0a 96 24 c8 99 |12=&4000|00...$..|
|00001b10| 20 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 | "Wimp_S|etIconSt|
|00001b20| 61 74 65 22 2c 2c 69 63 | 6f 6e 62 6c 6b 25 0d 0a |ate",,ic|onblk%..|
|00001b30| a0 05 e1 0d 0a aa 05 3a | 0d 0a b4 1a dd 20 f2 75 |.......:|..... .u|
|00001b40| 6e 67 72 65 79 69 63 6f | 6e 28 48 61 6e 64 6c 65 |ngreyico|n(Handle|
|00001b50| 25 29 0d 0a be 14 69 63 | 6f 6e 62 6c 6b 25 21 30 |%)....ic|onblk%!0|
|00001b60| 3d 77 69 6e 64 25 0d 0a | c8 16 69 63 6f 6e 62 6c |=wind%..|..iconbl|
|00001b70| 6b 25 21 34 3d 48 61 6e | 64 6c 65 25 0d 0a d2 10 |k%!4=Han|dle%....|
|00001b80| 69 63 6f 6e 62 6c 6b 25 | 21 38 3d 30 0d 0a dc 17 |iconblk%|!8=0....|
|00001b90| 69 63 6f 6e 62 6c 6b 25 | 21 31 32 3d 26 34 30 30 |iconblk%|!12=&400|
|00001ba0| 30 30 30 0d 0a e6 24 c8 | 99 20 22 57 69 6d 70 5f |000...$.|. "Wimp_|
|00001bb0| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 69 |SetIconS|tate",,i|
|00001bc0| 63 6f 6e 62 6c 6b 25 0d | 0a f0 05 e1 0d 0a fa 05 |conblk%.|........|
|00001bd0| 3a 0d 0b 04 1d dd 20 a4 | 69 63 6f 6e 5f 73 65 6c |:..... .|icon_sel|
|00001be0| 65 63 74 65 64 28 48 61 | 6e 64 6c 65 25 29 0d 0b |ected(Ha|ndle%)..|
|00001bf0| 0e 0c ea 20 66 6c 61 67 | 73 25 0d 0b 18 14 69 63 |... flag|s%....ic|
|00001c00| 6f 6e 62 6c 6b 25 21 30 | 3d 77 69 6e 64 25 0d 0b |onblk%!0|=wind%..|
|00001c10| 22 16 69 63 6f 6e 62 6c | 6b 25 21 34 3d 48 61 6e |".iconbl|k%!4=Han|
|00001c20| 64 6c 65 25 0d 0b 2c 24 | c8 99 20 22 57 69 6d 70 |dle%..,$|.. "Wimp|
|00001c30| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00001c40| 69 63 6f 6e 62 6c 6b 25 | 0d 0b 36 16 66 6c 61 67 |iconblk%|..6.flag|
|00001c50| 73 25 3d 69 63 6f 6e 62 | 6c 6b 25 21 32 34 0d 0b |s%=iconb|lk%!24..|
|00001c60| 40 24 3d 2d 28 28 66 6c | 61 67 73 25 20 80 20 26 |@$=-((fl|ags% . &|
|00001c70| 32 30 30 30 30 30 29 20 | 81 20 26 32 30 30 30 30 |200000) |. &20000|
|00001c80| 30 29 0d 0b 4a 05 3a 0d | 0b 54 1b dd 20 a4 69 63 |0)..J.:.|.T.. .ic|
|00001c90| 6f 6e 5f 67 72 65 79 65 | 64 28 48 61 6e 64 6c 65 |on_greye|d(Handle|
|00001ca0| 25 29 0d 0b 5e 0c ea 20 | 66 6c 61 67 73 25 0d 0b |%)..^.. |flags%..|
|00001cb0| 68 14 69 63 6f 6e 62 6c | 6b 25 21 30 3d 77 69 6e |h.iconbl|k%!0=win|
|00001cc0| 64 25 0d 0b 72 16 69 63 | 6f 6e 62 6c 6b 25 21 34 |d%..r.ic|onblk%!4|
|00001cd0| 3d 48 61 6e 64 6c 65 25 | 0d 0b 7c 24 c8 99 20 22 |=Handle%|..|$.. "|
|00001ce0| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|00001cf0| 65 22 2c 2c 69 63 6f 6e | 62 6c 6b 25 0d 0b 86 16 |e",,icon|blk%....|
|00001d00| 66 6c 61 67 73 25 3d 69 | 63 6f 6e 62 6c 6b 25 21 |flags%=i|conblk%!|
|00001d10| 32 34 0d 0b 90 24 3d 2d | 28 28 66 6c 61 67 73 25 |24...$=-|((flags%|
|00001d20| 20 80 20 26 34 30 30 30 | 30 30 29 20 81 20 26 34 | . &4000|00) . &4|
|00001d30| 30 30 30 30 30 29 0d 0b | 9a 05 3a 0d 0b a4 0f dd |00000)..|..:.....|
|00001d40| 20 f2 6d 65 6e 75 28 62 | 25 29 0d 0b ae 10 6d 65 | .menu(b|%)....me|
|00001d50| 6e 75 5f 78 25 3d 62 25 | 21 30 0d 0b b8 10 6d 65 |nu_x%=b%|!0....me|
|00001d60| 6e 75 5f 79 25 3d 62 25 | 21 34 0d 0b c2 14 6d 65 |nu_y%=b%|!4....me|
|00001d70| 6e 75 5f 77 69 6e 64 25 | 3d 62 25 21 31 32 0d 0b |nu_wind%|=b%!12..|
|00001d80| cc 16 f4 20 63 75 72 62 | 75 66 66 25 3d 62 75 66 |... curb|uff%=buf|
|00001d90| 66 65 72 25 0d 0b d6 13 | c8 8e 20 6d 65 6e 75 5f |fer%....|.. menu_|
|00001da0| 77 69 6e 64 25 20 ca 0d | 0b e0 58 c9 20 2d 32 3a |wind% ..|..X. -2:|
|00001db0| f2 64 72 61 77 6d 65 6e | 75 28 31 2c 6d 65 6e 75 |.drawmen|u(1,menu|
|00001dc0| 25 2c 74 69 74 6c 65 24 | 2b 22 2c 49 6e 66 6f 2c |%,title$|+",Info,|
|00001dd0| 51 75 69 74 22 29 3a c8 | 99 20 22 57 69 6d 70 5f |Quit"):.|. "Wimp_|
|00001de0| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2c 6d 65 6e |CreateMe|nu",,men|
|00001df0| 75 25 2b 34 2c 21 62 25 | 2d 36 34 2c 31 37 36 0d |u%+4,!b%|-64,176.|
|00001e00| 0b ea 17 c9 20 4d 6f 64 | 65 6c 25 2c 50 61 72 61 |.... Mod|el%,Para|
|00001e10| 6d 65 74 65 72 25 0d 0b | f4 13 24 6d 65 6e 75 25 |meter%..|..$menu%|
|00001e20| 3d c4 32 30 30 2c bd 30 | 29 0d 0b fe 4e f2 64 72 |=.200,.0|)...N.dr|
|00001e30| 61 77 6d 65 6e 75 28 32 | 2c 6d 65 6e 75 25 2c 74 |awmenu(2|,menu%,t|
|00001e40| 69 74 6c 65 24 2b 22 2c | 53 65 6c 65 63 74 20 4d |itle$+",|Select M|
|00001e50| 6f 64 65 6c 2c 45 6e 74 | 65 72 20 50 61 72 61 6d |odel,Ent|er Param|
|00001e60| 65 74 65 72 73 2c 53 74 | 61 72 74 20 43 75 72 76 |eters,St|art Curv|
|00001e70| 65 20 46 69 74 22 29 0d | 0c 08 2b c8 99 20 22 57 |e Fit").|..+.. "W|
|00001e80| 69 6d 70 5f 43 72 65 61 | 74 65 4d 65 6e 75 22 2c |imp_Crea|teMenu",|
|00001e90| 2c 6d 65 6e 75 25 2b 34 | 2c 62 25 21 30 2c 62 25 |,menu%+4|,b%!0,b%|
|00001ea0| 21 34 0d 0c 12 05 cb 0d | 0c 1c 05 e1 0d 0c 26 05 |!4......|......&.|
|00001eb0| 3a 0d 0c 30 19 dd 20 f2 | 64 72 61 77 6d 65 6e 75 |:..0.. .|drawmenu|
|00001ec0| 28 68 25 2c 6d 25 2c 6d | 24 29 0d 0c 3a 1b ea 20 |(h%,m%,m|$)..:.. |
|00001ed0| 4c 24 2c 70 74 72 25 2c | 6d 61 78 25 2c 54 24 2c |L$,ptr%,|max%,T$,|
|00001ee0| 41 25 2c 43 25 0d 0c 44 | 12 21 6d 25 3d 68 25 3a |A%,C%..D|.!m%=h%:|
|00001ef0| 6d 25 3f 31 36 3d 37 0d | 0c 4e 1b 6d 25 3f 31 37 |m%?16=7.|.N.m%?17|
|00001f00| 3d 32 3a 6d 25 3f 31 38 | 3d 37 3a 6d 25 3f 31 39 |=2:m%?18|=7:m%?19|
|00001f10| 3d 30 0d 0c 58 0c 6d 25 | 21 32 34 3d 34 30 0d 0c |=0..X.m%|!24=40..|
|00001f20| 62 16 6d 25 21 32 38 3d | 30 3a 70 74 72 25 3d 6d |b.m%!28=|0:ptr%=m|
|00001f30| 25 2b 33 32 0d 0c 6c 16 | 54 24 3d c0 6d 24 2c a7 |%+32..l.|T$=.m$,.|
|00001f40| 6d 24 2c 22 2c 22 29 2d | 31 29 0d 0c 76 19 24 28 |m$,",")-|1)..v.$(|
|00001f50| 6d 25 2b 34 29 3d 54 24 | 3a 6d 61 78 25 3d a9 28 |m%+4)=T$|:max%=.(|
|00001f60| 54 24 29 0d 0c 80 0d 6d | 24 3d 6d 24 2b 22 2c 22 |T$)....m|$=m$+","|
|00001f70| 0d 0c 8a 08 43 25 3d 30 | 0d 0c 94 0d c8 95 20 6d |....C%=0|...... m|
|00001f80| 24 3c 3e 22 22 0d 0c 9e | 09 43 25 2b 3d 31 0d 0c |$<>""...|.C%+=1..|
|00001f90| a8 0f 41 25 3d a7 6d 24 | 2c 22 2c 22 29 0d 0c b2 |..A%=.m$|,",")...|
|00001fa0| 17 e7 20 41 25 3e 6d 61 | 78 25 20 8c 20 6d 61 78 |.. A%>ma|x% . max|
|00001fb0| 25 3d 41 25 0d 0c bc 10 | 6d 24 3d c1 6d 24 2c 41 |%=A%....|m$=.m$,A|
|00001fc0| 25 2b 31 29 0d 0c c6 0e | e7 20 6d 24 3c 3e 22 22 |%+1)....|. m$<>""|
|00001fd0| 20 8c 0d 0c d0 15 21 70 | 74 72 25 3d 30 3a 70 74 | .....!p|tr%=0:pt|
|00001fe0| 72 25 21 34 3d 2d 31 0d | 0c da 0f 41 25 3d a7 6d |r%!4=-1.|...A%=.m|
|00001ff0| 24 2c 22 2c 22 29 0d 0c | e4 17 e7 20 41 25 3e 6d |$,",")..|... A%>m|
|00002000| 61 78 25 20 8c 20 6d 61 | 78 25 3d 41 25 0d 0c ee |ax% . ma|x%=A%...|
|00002010| 25 e7 20 c0 6d 24 2c 41 | 25 2d 31 29 3d 22 49 6e |%. .m$,A|%-1)="In|
|00002020| 66 6f 22 20 8c 20 70 74 | 72 25 21 34 3d 49 6e 66 |fo" . pt|r%!4=Inf|
|00002030| 6f 25 0d 0c f8 13 70 74 | 72 25 21 38 3d 26 37 30 |o%....pt|r%!8=&70|
|00002040| 30 30 31 32 31 0d 0d 02 | 1a 4d 65 6e 75 24 28 43 |00121...|.Menu$(C|
|00002050| 25 2c 68 25 29 3d c0 6d | 24 2c 41 25 2d 31 29 0d |%,h%)=.m|$,A%-1).|
|00002060| 0d 0c 58 e7 20 4d 65 6e | 75 24 28 43 25 2c 68 25 |..X. Men|u$(C%,h%|
|00002070| 29 3d 22 53 65 6c 65 63 | 74 20 4d 6f 64 65 6c 22 |)="Selec|t Model"|
|00002080| 20 8c 20 70 74 72 25 21 | 34 3d 6d 25 2b 32 30 34 | . ptr%!|4=m%+204|
|00002090| 3a f2 64 72 61 77 6d 65 | 6e 75 28 33 2c 70 74 72 |:.drawme|nu(3,ptr|
|000020a0| 25 21 34 2d 34 2c 22 4d | 6f 64 65 6c 2c 22 2b 4d |%!4-4,"M|odel,"+M|
|000020b0| 6f 64 65 6c 73 24 29 0d | 0d 16 24 49 25 3d a4 77 |odels$).|..$I%=.w|
|000020c0| 6f 72 6b 73 70 61 63 65 | 28 a9 28 4d 65 6e 75 24 |orkspace|(.(Menu$|
|000020d0| 28 43 25 2c 68 25 29 29 | 2b 31 29 0d 0d 20 14 24 |(C%,h%))|+1).. .$|
|000020e0| 49 25 3d 4d 65 6e 75 24 | 28 43 25 2c 68 25 29 0d |I%=Menu$|(C%,h%).|
|000020f0| 0d 2a 0e 70 74 72 25 21 | 31 32 3d 49 25 0d 0d 34 |.*.ptr%!|12=I%..4|
|00002100| 0e 70 74 72 25 21 31 36 | 3d 2d 31 0d 0d 3e 1d 70 |.ptr%!16|=-1..>.p|
|00002110| 74 72 25 21 32 30 3d a9 | 28 4d 65 6e 75 24 28 43 |tr%!20=.|(Menu$(C|
|00002120| 25 2c 68 25 29 29 2b 31 | 0d 0d 48 0c 70 74 72 25 |%,h%))+1|..H.ptr%|
|00002130| 2b 3d 32 34 0d 0d 52 05 | cd 0d 0d 5c 05 ce 0d 0d |+=24..R.|...\....|
|00002140| 66 1b 70 74 72 25 21 2d | 32 34 3d 70 74 72 25 21 |f.ptr%!-|24=ptr%!|
|00002150| 2d 32 34 20 84 20 26 38 | 30 0d 0d 70 11 6d 25 21 |-24 . &8|0..p.m%!|
|00002160| 32 30 3d 31 36 2a 6d 61 | 78 25 0d 0d 7a 05 e1 0d |20=16*ma|x%..z...|
|00002170| 0d 84 05 3a 0d 0d 8e 14 | dd 20 a4 77 6f 72 6b 73 |...:....|. .works|
|00002180| 70 61 63 65 28 4c 25 29 | 0d 0d 98 3e e7 20 63 75 |pace(L%)|...>. cu|
|00002190| 72 62 75 66 66 25 2b 4c | 25 3e 62 75 66 66 65 72 |rbuff%+L|%>buffer|
|000021a0| 25 2b 6d 61 78 62 75 66 | 25 20 8c 20 85 20 31 2c |%+maxbuf|% . . 1,|
|000021b0| 22 4e 6f 20 6d 6f 72 65 | 20 62 75 66 66 65 72 20 |"No more| buffer |
|000021c0| 73 70 61 63 65 22 0d 0d | a2 1d 63 75 72 62 75 66 |space"..|..curbuf|
|000021d0| 66 25 2b 3d 4c 25 3a 3d | 63 75 72 62 75 66 66 25 |f%+=L%:=|curbuff%|
|000021e0| 2d 4c 25 0d 0d ac 05 3a | 0d 0d b6 15 dd 20 f2 6f |-L%....:|..... .o|
|000021f0| 70 65 6e 77 69 6e 64 6f | 77 28 68 25 29 0d 0d c0 |penwindo|w(h%)...|
|00002200| 10 62 6c 6f 63 6b 32 25 | 21 30 3d 68 25 0d 0d ca |.block2%|!0=h%...|
|00002210| 24 c8 99 20 22 57 69 6d | 70 5f 47 65 74 57 69 6e |$.. "Wim|p_GetWin|
|00002220| 64 6f 77 49 6e 66 6f 22 | 2c 2c 62 6c 6f 63 6b 32 |dowInfo"|,,block2|
|00002230| 25 0d 0d d4 21 c8 99 20 | 22 57 69 6d 70 5f 4f 70 |%...!.. |"Wimp_Op|
|00002240| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |enWindow|",,block|
|00002250| 32 25 0d 0d de 05 e1 0d | 0d e8 05 3a 0d 0d f2 1b |2%......|...:....|
|00002260| dd 20 f2 63 6c 6f 73 65 | 77 69 6e 64 6f 77 28 68 |. .close|window(h|
|00002270| 61 6e 64 6c 65 25 29 0d | 0d fc 15 62 6c 6f 63 6b |andle%).|...block|
|00002280| 32 25 21 30 3d 68 61 6e | 64 6c 65 25 0d 0e 06 22 |2%!0=han|dle%..."|
|00002290| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 57 69 |.. "Wimp|_CloseWi|
|000022a0| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 32 25 0d 0e |ndow",,b|lock2%..|
|000022b0| 10 05 e1 0d 0e 1a 05 3a | 0d 0e 24 0e dd 20 f2 6b |.......:|..$.. .k|
|000022c0| 65 79 28 62 25 29 0d 0e | 2e 0e 77 69 6e 64 25 3d |ey(b%)..|..wind%=|
|000022d0| 62 25 21 30 0d 0e 38 0e | 69 63 6f 6e 25 3d 62 25 |b%!0..8.|icon%=b%|
|000022e0| 21 34 0d 0e 42 0f 63 68 | 61 72 25 3d 62 25 21 32 |!4..B.ch|ar%=b%!2|
|000022f0| 34 0d 0e 4c 0e c8 8e 20 | 63 68 61 72 25 20 ca 0d |4..L... |char% ..|
|00002300| 0e 56 1f c9 20 26 31 38 | 46 3a f2 6d 6f 76 65 75 |.V.. &18|F:.moveu|
|00002310| 70 28 77 69 6e 64 25 2c | 69 63 6f 6e 25 29 0d 0e |p(wind%,|icon%)..|
|00002320| 60 21 c9 20 26 31 38 45 | 3a f2 6d 6f 76 65 64 6f |`!. &18E|:.movedo|
|00002330| 77 6e 28 77 69 6e 64 25 | 2c 69 63 6f 6e 25 29 0d |wn(wind%|,icon%).|
|00002340| 0e 6a 57 c9 20 31 33 3a | e7 20 77 69 6e 64 25 3d |.jW. 13:|. wind%=|
|00002350| 66 69 6c 65 25 20 8c 20 | f2 73 61 76 65 69 74 28 |file% . |.saveit(|
|00002360| 24 66 6e 61 6d 65 25 29 | 20 8b 20 f2 61 63 63 65 |$fname%)| . .acce|
|00002370| 70 74 28 77 69 6e 64 25 | 2c 69 63 6f 6e 25 29 3a |pt(wind%|,icon%):|
|00002380| f2 6d 6f 76 65 64 6f 77 | 6e 28 77 69 6e 64 25 2c |.movedow|n(wind%,|
|00002390| 69 63 6f 6e 25 29 0d 0e | 74 34 c9 20 32 37 3a 21 |icon%)..|t4. 27:!|
|000023a0| 62 6c 6f 63 6b 25 3d 66 | 69 6c 65 25 3a c8 99 20 |block%=f|ile%:.. |
|000023b0| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|000023c0| 77 22 2c 2c 62 6c 6f 63 | 6b 25 0d 0e 7e 05 7f 0d |w",,bloc|k%..~...|
|000023d0| 0e 88 1e c8 99 20 22 57 | 69 6d 70 5f 50 72 6f 63 |..... "W|imp_Proc|
|000023e0| 65 73 73 4b 65 79 22 2c | 63 68 61 72 25 0d 0e 92 |essKey",|char%...|
|000023f0| 05 cb 0d 0e 9c 05 e1 0d | 0e a6 05 3a 0d 0e b0 1a |........|...:....|
|00002400| dd 20 f2 6d 6f 76 65 75 | 70 28 77 69 6e 64 25 2c |. .moveu|p(wind%,|
|00002410| 69 63 6f 6e 25 29 0d 0e | ba 08 ea 20 41 25 0d 0e |icon%)..|... A%..|
|00002420| c4 0c 69 63 6f 6e 25 2d | 3d 32 0d 0e ce 0e c8 8e |..icon%-|=2......|
|00002430| 20 77 69 6e 64 25 20 ca | 0d 0e d8 10 c9 20 50 61 | wind% .|..... Pa|
|00002440| 72 61 6d 65 74 65 72 25 | 0d 0e e2 19 e7 20 69 63 |rameter%|..... ic|
|00002450| 6f 6e 25 3d 2d 31 20 8c | 20 69 63 6f 6e 25 3d 33 |on%=-1 .| icon%=3|
|00002460| 35 0d 0e ec 17 e7 20 69 | 63 6f 6e 25 3d 39 20 8c |5..... i|con%=9 .|
|00002470| 20 69 63 6f 6e 25 3d 37 | 0d 0e f6 19 e7 20 69 63 | icon%=7|..... ic|
|00002480| 6f 6e 25 3d 31 33 20 8c | 20 69 63 6f 6e 25 3d 31 |on%=13 .| icon%=1|
|00002490| 31 0d 0f 00 19 e7 20 69 | 63 6f 6e 25 3d 31 37 20 |1..... i|con%=17 |
|000024a0| 8c 20 69 63 6f 6e 25 3d | 31 35 0d 0f 0a 19 e7 20 |. icon%=|15..... |
|000024b0| 69 63 6f 6e 25 3d 32 31 | 20 8c 20 69 63 6f 6e 25 |icon%=21| . icon%|
|000024c0| 3d 31 39 0d 0f 14 19 e7 | 20 69 63 6f 6e 25 3d 32 |=19.....| icon%=2|
|000024d0| 35 20 8c 20 69 63 6f 6e | 25 3d 32 33 0d 0f 1e 19 |5 . icon|%=23....|
|000024e0| e7 20 69 63 6f 6e 25 3d | 32 39 20 8c 20 69 63 6f |. icon%=|29 . ico|
|000024f0| 6e 25 3d 32 37 0d 0f 28 | 19 e7 20 69 63 6f 6e 25 |n%=27..(|.. icon%|
|00002500| 3d 33 33 20 8c 20 69 63 | 6f 6e 25 3d 33 31 0d 0f |=33 . ic|on%=31..|
|00002510| 32 0c c9 20 4d 6f 64 65 | 6c 25 0d 0f 3c 19 e7 20 |2.. Mode|l%..<.. |
|00002520| 69 63 6f 6e 25 3d 2d 31 | 20 8c 20 69 63 6f 6e 25 |icon%=-1| . icon%|
|00002530| 3d 32 31 0d 0f 46 05 cb | 0d 0f 50 26 c8 99 20 22 |=21..F..|..P&.. "|
|00002540| 57 69 6d 70 5f 47 65 74 | 43 61 72 65 74 50 6f 73 |Wimp_Get|CaretPos|
|00002550| 69 74 69 6f 6e 22 2c 2c | 63 61 72 65 74 25 0d 0f |ition",,|caret%..|
|00002560| 5a 14 69 63 6f 6e 62 6c | 6b 25 21 30 3d 77 69 6e |Z.iconbl|k%!0=win|
|00002570| 64 25 0d 0f 64 14 69 63 | 6f 6e 62 6c 6b 25 21 34 |d%..d.ic|onblk%!4|
|00002580| 3d 69 63 6f 6e 25 0d 0f | 6e 24 c8 99 20 22 57 69 |=icon%..|n$.. "Wi|
|00002590| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|000025a0| 2c 2c 69 63 6f 6e 62 6c | 6b 25 0d 0f 78 35 c8 99 |,,iconbl|k%..x5..|
|000025b0| 20 22 57 69 6d 70 5f 53 | 65 74 43 61 72 65 74 50 | "Wimp_S|etCaretP|
|000025c0| 6f 73 69 74 69 6f 6e 22 | 2c 63 61 72 65 74 25 21 |osition"|,caret%!|
|000025d0| 30 2c 69 63 6f 6e 25 2c | 2c 2c 2d 31 2c 2d 31 0d |0,icon%,|,,-1,-1.|
|000025e0| 0f 82 05 e1 0d 0f 8c 05 | 3a 0d 0f 96 1c dd 20 f2 |........|:..... .|
|000025f0| 6d 6f 76 65 64 6f 77 6e | 28 77 69 6e 64 25 2c 69 |movedown|(wind%,i|
|00002600| 63 6f 6e 25 29 0d 0f a0 | 0c 69 63 6f 6e 25 2b 3d |con%)...|.icon%+=|
|00002610| 32 0d 0f aa 0e c8 8e 20 | 77 69 6e 64 25 20 ca 0d |2...... |wind% ..|
|00002620| 0f b4 10 c9 20 50 61 72 | 61 6d 65 74 65 72 25 0d |.... Par|ameter%.|
|00002630| 0f be 18 e7 20 69 63 6f | 6e 25 3d 33 37 20 8c 20 |.... ico|n%=37 . |
|00002640| 69 63 6f 6e 25 3d 31 0d | 0f c8 19 e7 20 69 63 6f |icon%=1.|.... ico|
|00002650| 6e 25 3d 33 33 20 8c 20 | 69 63 6f 6e 25 3d 33 35 |n%=33 . |icon%=35|
|00002660| 0d 0f d2 19 e7 20 69 63 | 6f 6e 25 3d 32 39 20 8c |..... ic|on%=29 .|
|00002670| 20 69 63 6f 6e 25 3d 33 | 31 0d 0f dc 19 e7 20 69 | icon%=3|1..... i|
|00002680| 63 6f 6e 25 3d 32 35 20 | 8c 20 69 63 6f 6e 25 3d |con%=25 |. icon%=|
|00002690| 32 37 0d 0f e6 19 e7 20 | 69 63 6f 6e 25 3d 32 31 |27..... |icon%=21|
|000026a0| 20 8c 20 69 63 6f 6e 25 | 3d 32 33 0d 0f f0 19 e7 | . icon%|=23.....|
|000026b0| 20 69 63 6f 6e 25 3d 31 | 37 20 8c 20 69 63 6f 6e | icon%=1|7 . icon|
|000026c0| 25 3d 31 39 0d 0f fa 19 | e7 20 69 63 6f 6e 25 3d |%=19....|. icon%=|
|000026d0| 31 33 20 8c 20 69 63 6f | 6e 25 3d 31 35 0d 10 04 |13 . ico|n%=15...|
|000026e0| 18 e7 20 69 63 6f 6e 25 | 3d 39 20 8c 20 69 63 6f |.. icon%|=9 . ico|
|000026f0| 6e 25 3d 31 31 0d 10 0e | 0c c9 20 4d 6f 64 65 6c |n%=11...|.. Model|
|00002700| 25 0d 10 18 18 e7 20 69 | 63 6f 6e 25 3d 32 33 20 |%..... i|con%=23 |
|00002710| 8c 20 69 63 6f 6e 25 3d | 31 0d 10 22 05 cb 0d 10 |. icon%=|1.."....|
|00002720| 2c 26 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 43 61 |,&.. "Wi|mp_GetCa|
|00002730| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 2c 63 61 |retPosit|ion",,ca|
|00002740| 72 65 74 25 0d 10 36 14 | 69 63 6f 6e 62 6c 6b 25 |ret%..6.|iconblk%|
|00002750| 21 30 3d 77 69 6e 64 25 | 0d 10 40 14 69 63 6f 6e |!0=wind%|..@.icon|
|00002760| 62 6c 6b 25 21 34 3d 69 | 63 6f 6e 25 0d 10 4a 24 |blk%!4=i|con%..J$|
|00002770| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|00002780| 53 74 61 74 65 22 2c 2c | 69 63 6f 6e 62 6c 6b 25 |State",,|iconblk%|
|00002790| 0d 10 54 35 c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |..T5.. "|Wimp_Set|
|000027a0| 43 61 72 65 74 50 6f 73 | 69 74 69 6f 6e 22 2c 63 |CaretPos|ition",c|
|000027b0| 61 72 65 74 25 21 30 2c | 69 63 6f 6e 25 2c 2c 2c |aret%!0,|icon%,,,|
|000027c0| 2d 31 2c 2d 31 0d 10 5e | 05 e1 0d 10 68 05 3a 0d |-1,-1..^|....h.:.|
|000027d0| 10 72 1a dd 20 f2 61 63 | 63 65 70 74 28 77 69 6e |.r.. .ac|cept(win|
|000027e0| 64 25 2c 69 63 6f 6e 25 | 29 0d 10 7c 08 ea 20 41 |d%,icon%|)..|.. A|
|000027f0| 25 0d 10 86 0e c8 8e 20 | 77 69 6e 64 25 20 ca 0d |%...... |wind% ..|
|00002800| 10 90 1e c9 20 4d 6f 64 | 65 6c 25 20 20 20 20 3a |.... Mod|el%    :|
|00002810| f2 67 65 74 6d 6f 64 65 | 6c 76 61 72 73 0d 10 9a |.getmode|lvars...|
|00002820| 1e c9 20 50 61 72 61 6d | 65 74 65 72 25 3a f2 67 |.. Param|eter%:.g|
|00002830| 65 74 70 61 72 61 6d 76 | 61 72 73 0d 10 a4 05 cb |etparamv|ars.....|
|00002840| 0d 10 ae 05 e1 0d 10 b8 | 05 3a 0d 10 c2 13 dd 20 |........|.:..... |
|00002850| f2 67 65 74 70 61 72 61 | 6d 76 61 72 73 0d 10 cc |.getpara|mvars...|
|00002860| 0e ea 20 41 25 2c 77 69 | 6e 64 25 0d 10 d6 14 77 |.. A%,wi|nd%....w|
|00002870| 69 6e 64 25 3d 50 61 72 | 61 6d 65 74 65 72 25 0d |ind%=Par|ameter%.|
|00002880| 10 e0 20 50 61 72 61 6d | 73 25 3d a4 67 65 74 76 |.. Param|s%=.getv|
|00002890| 61 72 76 61 6c 28 50 61 | 72 61 6d 73 48 25 29 0d |arval(Pa|ramsH%).|
|000028a0| 10 ea 22 4d 61 78 49 74 | 65 72 25 3d a4 67 65 74 |.."MaxIt|er%=.get|
|000028b0| 76 61 72 76 61 6c 28 4d | 61 78 49 74 65 72 48 25 |varval(M|axIterH%|
|000028c0| 29 0d 10 f4 39 e7 20 ac | 20 a4 69 63 6f 6e 5f 67 |)...9. .| .icon_g|
|000028d0| 72 65 79 65 64 28 53 69 | 67 65 78 48 25 29 20 8c |reyed(Si|gexH%) .|
|000028e0| 20 53 69 67 65 78 3d a4 | 67 65 74 76 61 72 76 61 | Sigex=.|getvarva|
|000028f0| 6c 28 53 69 67 65 78 48 | 25 29 0d 10 fe 14 e3 20 |l(SigexH|%)..... |
|00002900| 41 25 3d 31 20 b8 20 50 | 61 72 61 6d 73 25 0d 11 |A%=1 . P|arams%..|
|00002910| 08 25 50 61 72 61 6d 28 | 41 25 29 3d a4 67 65 74 |.%Param(|A%)=.get|
|00002920| 76 61 72 76 61 6c 28 50 | 61 72 61 6d 48 25 28 41 |varval(P|aramH%(A|
|00002930| 25 29 29 0d 11 12 31 f2 | 73 65 74 76 61 72 69 63 |%))...1.|setvaric|
|00002940| 6f 6e 28 50 61 72 61 6d | 48 25 28 41 25 29 2c a4 |on(Param|H%(A%),.|
|00002950| 5f 52 6f 75 6e 64 28 50 | 61 72 61 6d 28 41 25 29 |_Round(P|aram(A%)|
|00002960| 2c 35 29 29 0d 11 1c 3b | e7 20 a4 69 63 6f 6e 5f |,5))...;|. .icon_|
|00002970| 73 65 6c 65 63 74 65 64 | 28 41 25 2b 34 32 29 20 |selected|(A%+42) |
|00002980| 8c 20 46 72 6f 7a 65 6e | 25 28 41 25 29 3d b9 20 |. Frozen|%(A%)=. |
|00002990| 8b 20 46 72 6f 7a 65 6e | 25 28 41 25 29 3d a3 0d |. Frozen|%(A%)=..|
|000029a0| 11 26 1f f2 73 65 74 76 | 61 72 69 63 6f 6e 28 45 |.&..setv|aricon(E|
|000029b0| 72 72 6f 72 48 25 28 41 | 25 29 2c 22 22 29 0d 11 |rrorH%(A|%),"")..|
|000029c0| 30 08 ed 20 41 25 0d 11 | 3a 16 e3 20 41 25 3d 50 |0.. A%..|:.. A%=P|
|000029d0| 61 72 61 6d 73 25 2b 31 | 20 b8 20 38 0d 11 44 1f |arams%+1| . 8..D.|
|000029e0| f2 73 65 74 76 61 72 69 | 63 6f 6e 28 50 61 72 61 |.setvari|con(Para|
|000029f0| 6d 48 25 28 41 25 29 2c | 22 22 29 0d 11 4e 1f f2 |mH%(A%),|"")..N..|
|00002a00| 73 65 74 76 61 72 69 63 | 6f 6e 28 45 72 72 6f 72 |setvaric|on(Error|
|00002a10| 48 25 28 41 25 29 2c 22 | 22 29 0d 11 58 18 f2 64 |H%(A%),"|")..X..d|
|00002a20| 65 73 65 6c 65 63 74 69 | 63 6f 6e 28 41 25 2b 34 |eselecti|con(A%+4|
|00002a30| 32 29 0d 11 62 08 ed 20 | 41 25 0d 11 6c 1c f2 73 |2)..b.. |A%..l..s|
|00002a40| 65 74 76 61 72 69 63 6f | 6e 28 43 68 69 53 71 72 |etvarico|n(ChiSqr|
|00002a50| 48 25 2c 22 22 29 0d 11 | 76 1b f2 73 65 74 76 61 |H%,"")..|v..setva|
|00002a60| 72 69 63 6f 6e 28 53 74 | 44 65 76 48 25 2c 22 22 |ricon(St|DevH%,""|
|00002a70| 29 0d 11 80 05 e1 0d 11 | 8a 05 3a 0d 11 94 13 dd |).......|..:.....|
|00002a80| 20 f2 67 65 74 6d 6f 64 | 65 6c 76 61 72 73 0d 11 | .getmod|elvars..|
|00002a90| 9e 0e ea 20 41 25 2c 77 | 69 6e 64 25 0d 11 a8 10 |... A%,w|ind%....|
|00002aa0| 77 69 6e 64 25 3d 4d 6f | 64 65 6c 25 0d 11 b2 23 |wind%=Mo|del%...#|
|00002ab0| 4d 54 69 74 6c 65 24 3d | a4 67 65 74 73 74 72 76 |MTitle$=|.getstrv|
|00002ac0| 61 72 76 61 6c 28 4d 54 | 69 74 6c 65 48 25 29 0d |arval(MT|itleH%).|
|00002ad0| 11 bc 1f 46 75 6e 63 24 | 3d a4 67 65 74 73 74 72 |...Func$|=.getstr|
|00002ae0| 76 61 72 76 61 6c 28 46 | 75 6e 63 48 25 29 0d 11 |varval(F|uncH%)..|
|00002af0| c6 25 41 75 78 46 75 6e | 63 24 3d a4 67 65 74 73 |.%AuxFun|c$=.gets|
|00002b00| 74 72 76 61 72 76 61 6c | 28 41 75 78 46 75 6e 63 |trvarval|(AuxFunc|
|00002b10| 48 25 29 0d 11 d0 0e e3 | 20 41 25 3d 31 20 b8 20 |H%).....| A%=1 . |
|00002b20| 38 0d 11 da 25 64 46 69 | 24 28 41 25 29 3d a4 67 |8...%dFi|$(A%)=.g|
|00002b30| 65 74 73 74 72 76 61 72 | 76 61 6c 28 64 46 69 48 |etstrvar|val(dFiH|
|00002b40| 25 28 41 25 29 29 0d 11 | e4 08 ed 20 41 25 0d 11 |%(A%))..|... A%..|
|00002b50| ee 05 e1 0d 11 f8 05 3a | 0d 12 02 1a dd 20 a4 67 |.......:|..... .g|
|00002b60| 65 74 73 74 72 76 61 72 | 76 61 6c 28 69 63 6f 6e |etstrvar|val(icon|
|00002b70| 25 29 0d 12 0c 14 69 63 | 6f 6e 62 6c 6b 25 21 30 |%)....ic|onblk%!0|
|00002b80| 3d 77 69 6e 64 25 0d 12 | 16 14 69 63 6f 6e 62 6c |=wind%..|..iconbl|
|00002b90| 6b 25 21 34 3d 69 63 6f | 6e 25 0d 12 20 24 c8 99 |k%!4=ico|n%.. $..|
|00002ba0| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00002bb0| 61 74 65 22 2c 2c 69 63 | 6f 6e 62 6c 6b 25 0d 12 |ate",,ic|onblk%..|
|00002bc0| 2a 13 3d 24 28 69 63 6f | 6e 62 6c 6b 25 21 32 38 |*.=$(ico|nblk%!28|
|00002bd0| 29 0d 12 34 05 3a 0d 12 | 3e 2f dd 20 a4 67 65 74 |)..4.:..|>/. .get|
|00002be0| 76 61 72 76 61 6c 28 69 | 63 6f 6e 25 29 3d bb 28 |varval(i|con%)=.(|
|00002bf0| a4 67 65 74 73 74 72 76 | 61 72 76 61 6c 28 69 63 |.getstrv|arval(ic|
|00002c00| 6f 6e 25 29 29 0d 12 48 | 05 3a 0d 12 52 1d dd 20 |on%))..H|.:..R.. |
|00002c10| f2 73 65 74 76 61 72 69 | 63 6f 6e 28 69 63 6f 6e |.setvari|con(icon|
|00002c20| 25 2c 76 61 6c 24 29 0d | 12 5c 14 69 63 6f 6e 62 |%,val$).|.\.iconb|
|00002c30| 6c 6b 25 21 30 3d 77 69 | 6e 64 25 0d 12 66 14 69 |lk%!0=wi|nd%..f.i|
|00002c40| 63 6f 6e 62 6c 6b 25 21 | 34 3d 69 63 6f 6e 25 0d |conblk%!|4=icon%.|
|00002c50| 12 70 24 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 49 |.p$.. "W|imp_GetI|
|00002c60| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 69 63 6f 6e 62 |conState|",,iconb|
|00002c70| 6c 6b 25 0d 12 7a 17 24 | 28 69 63 6f 6e 62 6c 6b |lk%..z.$|(iconblk|
|00002c80| 25 21 32 38 29 3d 76 61 | 6c 24 0d 12 84 10 69 63 |%!28)=va|l$....ic|
|00002c90| 6f 6e 62 6c 6b 25 21 38 | 3d 30 0d 12 8e 11 69 63 |onblk%!8|=0....ic|
|00002ca0| 6f 6e 62 6c 6b 25 21 31 | 32 3d 30 0d 12 98 24 c8 |onblk%!1|2=0...$.|
|00002cb0| 99 20 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |. "Wimp_|SetIconS|
|00002cc0| 74 61 74 65 22 2c 2c 69 | 63 6f 6e 62 6c 6b 25 0d |tate",,i|conblk%.|
|00002cd0| 12 a2 05 e1 0d 12 ac 05 | 3a 0d 12 b6 17 dd 20 f2 |........|:..... .|
|00002ce0| 75 73 65 72 64 72 61 67 | 64 6f 6e 65 28 62 25 29 |userdrag|done(b%)|
|00002cf0| 0d 12 c0 20 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |... .. "|Wimp_Get|
|00002d00| 50 6f 69 6e 74 65 72 49 | 6e 66 6f 22 2c 2c 62 25 |PointerI|nfo",,b%|
|00002d10| 0d 12 ca 39 f4 20 73 65 | 6e 64 20 27 64 61 74 61 |...9. se|nd 'data|
|00002d20| 73 61 76 65 27 20 6d 65 | 73 73 61 67 65 20 74 6f |save' me|ssage to|
|00002d30| 20 64 65 73 74 69 6e 61 | 74 69 6f 6e 20 61 70 70 | destina|tion app|
|00002d40| 6c 69 63 61 74 69 6f 6e | 2e 0d 12 d4 40 62 25 21 |lication|....@b%!|
|00002d50| 32 30 3d 62 25 21 31 32 | 3a 62 25 21 32 34 3d 62 |20=b%!12|:b%!24=b|
|00002d60| 25 21 31 36 3a 62 25 21 | 32 38 3d 62 25 21 30 3a |%!16:b%!|28=b%!0:|
|00002d70| 62 25 21 33 32 3d 62 25 | 21 34 3a 62 25 21 33 36 |b%!32=b%|!4:b%!36|
|00002d80| 3d 73 61 76 65 6c 65 6e | 25 0d 12 de 26 62 25 21 |=savelen|%...&b%!|
|00002d90| 30 3d 36 34 3a 62 25 21 | 31 32 3d 30 3a 62 25 21 |0=64:b%!|12=0:b%!|
|00002da0| 31 36 3d 31 3a 62 25 21 | 34 30 3d 26 41 46 46 0d |16=1:b%!|40=&AFF.|
|00002db0| 12 e8 1e 24 28 62 25 2b | 34 34 29 3d a4 6c 65 61 |...$(b%+|44)=.lea|
|00002dc0| 66 28 24 66 6e 61 6d 65 | 25 29 2b bd 30 0d 12 f2 |f($fname|%)+.0...|
|00002dd0| 2b c8 99 20 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 |+.. "Wim|p_SendMe|
|00002de0| 73 73 61 67 65 22 2c 31 | 37 2c 62 25 2c 62 25 21 |ssage",1|7,b%,b%!|
|00002df0| 32 30 2c 62 25 21 32 34 | 0d 12 fc 0f 6d 79 72 65 |20,b%!24|....myre|
|00002e00| 66 25 3d 62 25 21 38 0d | 13 06 05 e1 0d 13 10 05 |f%=b%!8.|........|
|00002e10| 3a 0d 13 1a 18 dd 20 f2 | 6d 65 6e 75 73 65 6c 65 |:..... .|menusele|
|00002e20| 63 74 28 41 25 2c 42 25 | 29 0d 13 24 35 c8 99 20 |ct(A%,B%|)..$5.. |
|00002e30| 22 57 69 6d 70 5f 47 65 | 74 50 6f 69 6e 74 65 72 |"Wimp_Ge|tPointer|
|00002e40| 49 6e 66 6f 22 2c 2c 62 | 6c 6f 63 6b 25 3a 73 74 |Info",,b|lock%:st|
|00002e50| 61 79 25 3d 62 6c 6f 63 | 6b 25 21 38 3d 31 0d 13 |ay%=bloc|k%!8=1..|
|00002e60| 2e 0f c8 8e 20 21 6d 65 | 6e 75 25 20 ca 0d 13 38 |.... !me|nu% ...8|
|00002e70| 07 c9 20 31 0d 13 42 0c | 20 c8 8e 20 41 25 20 ca |.. 1..B.| .. A% .|
|00002e80| 0d 13 4c 10 20 c9 20 31 | 3a 71 75 69 74 25 3d b9 |..L. . 1|:quit%=.|
|00002e90| 0d 13 56 06 20 cb 0d 13 | 60 07 c9 20 32 0d 13 6a |..V. ...|`.. 2..j|
|00002ea0| 0d 20 20 c8 8e 20 41 25 | 20 ca 0d 13 74 1d 20 20 |.  .. A%| ...t.  |
|00002eb0| c9 20 30 3a f2 5f 53 65 | 6c 65 63 74 4d 6f 64 65 |. 0:._Se|lectMode|
|00002ec0| 6c 28 42 25 2b 31 29 0d | 13 7e 21 20 20 c9 20 31 |l(B%+1).|.~!  . 1|
|00002ed0| 3a f2 6f 70 65 6e 77 69 | 6e 64 6f 77 28 50 61 72 |:.openwi|ndow(Par|
|00002ee0| 61 6d 65 74 65 72 25 29 | 0d 13 88 1b 20 20 c9 20 |ameter%)|....  . |
|00002ef0| 32 3a f2 5f 44 6f 46 69 | 74 28 4d 61 78 49 74 65 |2:._DoFi|t(MaxIte|
|00002f00| 72 25 29 0d 13 92 07 20 | 20 cb 0d 13 9c 05 cb 0d |r%).... | .......|
|00002f10| 13 a6 0d e7 20 73 74 61 | 79 25 20 8c 0d 13 b0 14 |.... sta|y% .....|
|00002f20| 62 6c 6f 63 6b 25 21 30 | 3d 6d 65 6e 75 5f 78 25 |block%!0|=menu_x%|
|00002f30| 0d 13 ba 14 62 6c 6f 63 | 6b 25 21 34 3d 6d 65 6e |....bloc|k%!4=men|
|00002f40| 75 5f 79 25 0d 13 c4 18 | 62 6c 6f 63 6b 25 21 31 |u_y%....|block%!1|
|00002f50| 32 3d 6d 65 6e 75 5f 77 | 69 6e 64 25 0d 13 ce 11 |2=menu_w|ind%....|
|00002f60| f2 6d 65 6e 75 28 62 6c | 6f 63 6b 25 29 0d 13 d8 |.menu(bl|ock%)...|
|00002f70| 05 cd 0d 13 e2 05 e1 0d | 13 ec 05 3a 0d 13 f6 12 |........|...:....|
|00002f80| dd 20 f2 6d 65 73 73 61 | 67 65 28 62 25 29 0d 14 |. .messa|ge(b%)..|
|00002f90| 00 0e c8 8e 20 62 25 21 | 31 36 20 ca 0d 14 0a 0f |.... b%!|16 .....|
|00002fa0| c9 20 30 3a 71 75 69 74 | 25 3d b9 0d 14 14 15 c9 |. 0:quit|%=......|
|00002fb0| 20 31 3a f2 64 61 74 61 | 73 61 76 65 28 62 25 29 | 1:.data|save(b%)|
|00002fc0| 0d 14 1e 18 c9 20 32 3a | f2 64 61 74 61 73 61 76 |..... 2:|.datasav|
|00002fd0| 65 61 63 6b 28 62 25 29 | 0d 14 28 15 c9 20 33 3a |eack(b%)|..(.. 3:|
|00002fe0| f2 64 61 74 61 6c 6f 61 | 64 28 62 25 29 0d 14 32 |.dataloa|d(b%)..2|
|00002ff0| 0a c9 20 26 35 30 32 0d | 14 3c 1a 20 62 25 21 31 |.. &502.|.<. b%!1|
|00003000| 32 3d 62 25 21 38 3a 62 | 25 21 31 36 3d 26 35 30 |2=b%!8:b|%!16=&50|
|00003010| 33 0d 14 46 28 20 68 65 | 6c 70 25 3d 62 25 2b 32 |3..F( he|lp%=b%+2|
|00003020| 30 3a 77 69 6e 64 25 3d | 62 25 21 33 32 3a 69 63 |0:wind%=|b%!32:ic|
|00003030| 6f 6e 25 3d 62 25 21 33 | 36 0d 14 50 20 20 68 65 |on%=b%!3|6..P  he|
|00003040| 6c 70 24 3d a4 67 65 74 | 68 65 6c 70 28 77 69 6e |lp$=.get|help(win|
|00003050| 64 25 2c 69 63 6f 6e 25 | 29 0d 14 5a 28 20 24 68 |d%,icon%|)..Z( $h|
|00003060| 65 6c 70 25 3d 68 65 6c | 70 24 2b 22 7c 4d 22 3a |elp%=hel|p$+"|M":|
|00003070| 68 65 6c 70 25 2b 3d a9 | 28 68 65 6c 70 24 29 2b |help%+=.|(help$)+|
|00003080| 32 0d 14 64 21 20 3f 68 | 65 6c 70 25 3d 30 3a 21 |2..d! ?h|elp%=0:!|
|00003090| 62 25 3d 28 68 65 6c 70 | 25 2b 34 2d 62 25 29 80 |b%=(help|%+4-b%).|
|000030a0| ac 33 0d 14 6e 25 20 c8 | 99 20 22 57 69 6d 70 5f |.3..n% .|. "Wimp_|
|000030b0| 53 65 6e 64 4d 65 73 73 | 61 67 65 22 2c 31 37 2c |SendMess|age",17,|
|000030c0| 62 25 2c 62 25 21 34 0d | 14 78 05 cb 0d 14 82 05 |b%,b%!4.|.x......|
|000030d0| e1 0d 14 8c 05 3a 0d 14 | 96 1b dd 20 a4 67 65 74 |.....:..|... .get|
|000030e0| 68 65 6c 70 28 77 69 6e | 64 25 2c 69 63 6f 6e 25 |help(win|d%,icon%|
|000030f0| 29 0d 14 a0 08 ea 20 68 | 24 0d 14 aa 0e c8 8e 20 |)..... h|$...... |
|00003100| 77 69 6e 64 25 20 ca 0d | 14 b4 09 c9 20 2d 32 3a |wind% ..|.... -2:|
|00003110| 0d 14 be cd 20 e7 20 69 | 63 6f 6e 25 3d 73 69 63 |.... . i|con%=sic|
|00003120| 6f 6e 25 20 8c 20 68 24 | 3d 22 54 68 69 73 20 69 |on% . h$|="This i|
|00003130| 73 20 74 68 65 20 22 2b | 74 69 74 6c 65 24 2b 22 |s the "+|title$+"|
|00003140| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 2e 7c 4d 43 | applica|tion.|MC|
|00003150| 6c 69 63 6b 20 77 69 74 | 68 20 53 45 4c 45 43 54 |lick wit|h SELECT|
|00003160| 20 74 6f 20 6f 70 65 6e | 20 6d 61 69 6e 20 77 69 | to open| main wi|
|00003170| 6e 64 6f 77 2c 20 6f 72 | 20 77 69 74 68 20 4d 45 |ndow, or| with ME|
|00003180| 4e 55 20 66 6f 72 20 61 | 6e 20 69 63 6f 6e 62 61 |NU for a|n iconba|
|00003190| 72 20 6d 65 6e 75 2e 7c | 4d 54 6f 20 6c 6f 61 64 |r menu.||MTo load|
|000031a0| 20 61 20 6e 65 77 20 27 | 21 53 63 69 47 72 61 70 | a new '|!SciGrap|
|000031b0| 68 27 20 64 61 74 61 20 | 66 69 6c 65 2c 20 64 72 |h' data |file, dr|
|000031c0| 61 67 20 69 74 27 73 20 | 69 63 6f 6e 20 6f 6e 74 |ag it's |icon ont|
|000031d0| 6f 20 74 68 69 73 20 69 | 63 6f 6e 2e 22 0d 14 c8 |o this i|con."...|
|000031e0| 0b c9 20 49 6e 66 6f 25 | 0d 14 d2 0f 20 c8 8e 20 |.. Info%|.... .. |
|000031f0| 69 63 6f 6e 25 20 ca 0d | 14 dc 7e 20 c9 20 33 3a |icon% ..|..~ . 3:|
|00003200| 20 68 24 3d 22 54 68 69 | 73 20 61 70 70 6c 69 63 | h$="Thi|s applic|
|00003210| 61 74 69 6f 6e 20 70 65 | 72 66 6f 72 6d 73 20 61 |ation pe|rforms a|
|00003220| 20 4e 6f 6e 20 4c 69 6e | 65 61 72 20 4c 65 61 73 | Non Lin|ear Leas|
|00003230| 74 20 53 71 75 61 72 65 | 73 20 63 75 72 76 65 20 |t Square|s curve |
|00003240| 66 69 74 7c 4d 6f 6e 20 | 61 20 73 65 74 20 6f 66 |fit|Mon |a set of|
|00003250| 20 64 61 74 61 20 28 6c | 6f 61 64 65 64 20 61 73 | data (l|oaded as|
|00003260| 20 61 20 27 53 63 69 47 | 72 61 70 68 27 20 66 69 | a 'SciG|raph' fi|
|00003270| 6c 65 29 2e 22 0d 14 e6 | b5 20 c9 20 35 3a 20 68 |le)."...|. . 5: h|
|00003280| 24 3d 22 54 68 65 20 61 | 75 74 68 6f 72 2c 20 44 |$="The a|uthor, D|
|00003290| 72 2e 20 52 6f 64 65 72 | 69 63 6b 20 46 65 72 67 |r. Roder|ick Ferg|
|000032a0| 75 73 6f 6e 2c 20 63 61 | 6e 20 62 65 20 63 6f 6e |uson, ca|n be con|
|000032b0| 74 61 63 74 65 64 20 61 | 74 20 3a 2d 7c 4d 48 65 |tacted a|t :-|MHe|
|000032c0| 72 69 6f 74 2d 57 61 74 | 74 20 55 6e 69 76 65 72 |riot-Wat|t Univer|
|000032d0| 73 69 74 79 20 43 68 65 | 6d 69 73 74 72 79 20 44 |sity Che|mistry D|
|000032e0| 65 70 61 72 74 6d 65 6e | 74 20 28 45 64 69 6e 62 |epartmen|t (Edinb|
|000032f0| 75 72 67 68 2c 20 53 63 | 6f 74 6c 61 6e 64 29 7c |urgh, Sc|otland)||
|00003300| 4d 6f 6e 20 30 33 31 2d | 34 34 39 2d 35 31 31 31 |Mon 031-|449-5111|
|00003310| 2c 20 65 78 74 65 6e 73 | 69 6f 6e 20 34 31 30 39 |, extens|ion 4109|
|00003320| 20 6f 72 20 34 32 33 39 | 2e 22 0d 14 f0 2a 20 c9 | or 4239|."...* .|
|00003330| 20 37 3a 20 68 24 3d 22 | 54 68 69 73 20 69 73 20 | 7: h$="|This is |
|00003340| 74 68 65 20 6c 61 74 65 | 73 74 20 76 65 72 73 69 |the late|st versi|
|00003350| 6f 6e 2e 22 0d 14 fa 06 | 20 7f 0d 15 04 2d 20 68 |on."....| ....- h|
|00003360| 24 3d 22 54 68 69 73 20 | 69 73 20 74 68 65 20 22 |$="This |is the "|
|00003370| 2b 74 69 74 6c 65 24 2b | 22 20 61 70 70 6c 69 63 |+title$+|" applic|
|00003380| 61 74 69 6f 6e 2e 22 0d | 15 0e 06 20 cb 0d 15 18 |ation.".|... ....|
|00003390| 0c c9 20 4d 6f 64 65 6c | 25 0d 15 22 0e c8 8e 20 |.. Model|%.."... |
|000033a0| 69 63 6f 6e 25 20 ca 0d | 15 2c 2a 20 c9 20 31 3a |icon% ..|.,* . 1:|
|000033b0| 20 68 24 3d 22 45 6e 74 | 65 72 20 74 68 65 20 4d | h$="Ent|er the M|
|000033c0| 6f 64 65 6c 20 54 69 74 | 6c 65 20 68 65 72 65 2e |odel Tit|le here.|
|000033d0| 22 0d 15 36 45 20 c9 20 | 33 3a 20 68 24 3d 22 45 |"..6E . |3: h$="E|
|000033e0| 6e 74 65 72 20 74 68 65 | 20 6d 61 69 6e 20 6d 6f |nter the| main mo|
|000033f0| 64 65 6c 20 46 75 6e 63 | 74 69 6f 6e 20 46 28 58 |del Func|tion F(X|
|00003400| 2c 55 2c 50 31 2c 50 32 | 2e 2e 2e 2c 50 38 29 20 |,U,P1,P2|...,P8) |
|00003410| 68 65 72 65 2e 22 0d 15 | 40 43 20 c9 20 35 3a 20 |here."..|@C . 5: |
|00003420| 68 24 3d 22 45 6e 74 65 | 72 20 61 6e 20 61 75 78 |h$="Ente|r an aux|
|00003430| 69 6c 69 61 72 79 20 66 | 75 6e 63 74 69 6f 6e 20 |iliary f|unction |
|00003440| 55 3d 55 28 58 2c 50 31 | 2c 50 32 2e 2e 2e 2c 50 |U=U(X,P1|,P2...,P|
|00003450| 38 29 20 68 65 72 65 2e | 22 0d 15 4a 4c 20 c9 20 |8) here.|"..JL . |
|00003460| 37 2c 39 2c 31 31 2c 31 | 33 2c 31 35 2c 31 37 2c |7,9,11,1|3,15,17,|
|00003470| 31 39 2c 32 31 3a 20 68 | 24 3d 22 45 6e 74 65 72 |19,21: h|$="Enter|
|00003480| 20 61 20 70 61 72 74 69 | 61 6c 20 64 65 72 69 76 | a parti|al deriv|
|00003490| 61 74 69 76 65 20 28 9f | 46 2f 9f 50 69 29 20 68 |ative (.|F/.Pi) h|
|000034a0| 65 72 65 2e 22 0d 15 54 | 40 20 c9 20 32 33 3a 20 |ere."..T|@ . 23: |
|000034b0| 68 24 3d 22 54 68 69 73 | 20 69 73 20 74 68 65 20 |h$="This| is the |
|000034c0| 63 75 72 72 65 6e 74 6c | 79 20 6c 6f 61 64 65 64 |currentl|y loaded|
|000034d0| 20 53 63 69 47 72 61 70 | 68 20 64 61 74 61 20 66 | SciGrap|h data f|
|000034e0| 69 6c 65 2e 22 0d 15 5e | 05 7f 0d 15 68 2f 20 68 |ile."..^|....h/ h|
|000034f0| 24 3d 22 54 68 69 73 20 | 69 73 20 74 68 65 20 4d |$="This |is the M|
|00003500| 6f 64 65 6c 20 44 65 73 | 63 72 69 70 74 69 6f 6e |odel Des|cription|
|00003510| 20 77 69 6e 64 6f 77 2e | 22 0d 15 72 05 cb 0d 15 | window.|"..r....|
|00003520| 7c 10 c9 20 50 61 72 61 | 6d 65 74 65 72 25 0d 15 ||.. Para|meter%..|
|00003530| 86 0f 20 c8 8e 20 69 63 | 6f 6e 25 20 ca 0d 15 90 |.. .. ic|on% ....|
|00003540| 40 c9 20 30 2c 31 3a 20 | 68 24 3d 22 45 6e 74 65 |@. 0,1: |h$="Ente|
|00003550| 72 20 74 68 65 20 74 6f | 74 61 6c 20 6e 75 6d 62 |r the to|tal numb|
|00003560| 65 72 20 6f 66 20 6d 6f | 64 65 6c 20 70 61 72 61 |er of mo|del para|
|00003570| 6d 65 74 65 72 73 20 68 | 65 72 65 2e 22 0d 15 9a |meters h|ere."...|
|00003580| 3c c9 20 32 2c 33 3a 20 | 68 24 3d 22 45 6e 74 65 |<. 2,3: |h$="Ente|
|00003590| 72 20 74 68 65 20 6d 61 | 78 69 6d 75 6d 20 6e 75 |r the ma|ximum nu|
|000035a0| 6d 62 65 72 20 6f 66 20 | 69 74 65 72 61 74 69 6f |mber of |iteratio|
|000035b0| 6e 73 20 68 65 72 65 2e | 22 0d 15 a4 a6 c9 20 34 |ns here.|"..... 4|
|000035c0| 2c 35 3a 20 68 24 3d 22 | 45 6e 74 65 72 20 74 68 |,5: h$="|Enter th|
|000035d0| 65 20 65 73 74 69 6d 61 | 74 65 64 20 73 74 61 6e |e estima|ted stan|
|000035e0| 64 61 72 64 20 65 72 72 | 6f 72 20 66 6f 72 20 65 |dard err|or for e|
|000035f0| 61 63 68 20 64 61 74 61 | 20 70 6f 69 6e 74 20 68 |ach data| point h|
|00003600| 65 72 65 2e 7c 4d 49 66 | 20 65 72 72 6f 72 20 6c |ere.|MIf| error l|
|00003610| 69 6d 69 74 73 20 61 72 | 65 20 69 6e 63 6c 75 64 |imits ar|e includ|
|00003620| 65 64 20 69 6e 20 74 68 | 65 20 53 63 69 47 72 61 |ed in th|e SciGra|
|00003630| 70 68 20 64 61 74 61 20 | 66 69 6c 65 2c 7c 4d 74 |ph data |file,|Mt|
|00003640| 68 65 6e 20 74 68 69 73 | 20 6f 70 74 69 6f 6e 20 |hen this| option |
|00003650| 69 73 20 67 72 65 79 65 | 64 20 6f 75 74 2e 22 0d |is greye|d out.".|
|00003660| 15 ae bd c9 20 37 2c 31 | 31 2c 31 35 2c 31 39 2c |.... 7,1|1,15,19,|
|00003670| 32 33 2c 32 37 2c 33 31 | 2c 33 35 3a 20 68 24 3d |23,27,31|,35: h$=|
|00003680| 22 45 6e 74 65 72 20 61 | 20 70 61 72 61 6d 65 74 |"Enter a| paramet|
|00003690| 65 72 20 76 61 6c 75 65 | 20 68 65 72 65 2e 7c 4d |er value| here.|M|
|000036a0| 57 68 65 6e 20 61 20 6e | 65 77 20 70 61 72 61 6d |When a n|ew param|
|000036b0| 65 74 65 72 20 76 61 6c | 75 65 20 69 73 20 69 6e |eter val|ue is in|
|000036c0| 70 75 74 2c 20 61 6c 6c | 20 65 72 72 6f 72 73 20 |put, all| errors |
|000036d0| 61 72 65 20 62 6c 61 6e | 6b 65 64 20 6f 75 74 2c |are blan|ked out,|
|000036e0| 7c 4d 61 6e 64 20 79 6f | 75 20 73 68 6f 75 6c 64 ||Mand yo|u should|
|000036f0| 20 73 74 61 72 74 20 61 | 20 6e 65 77 20 63 75 72 | start a| new cur|
|00003700| 76 65 20 66 69 74 20 28 | 75 73 65 20 61 20 6d 65 |ve fit (|use a me|
|00003710| 6e 75 20 6f 70 74 69 6f | 6e 29 2e 22 0d 15 b8 ca |nu optio|n)."....|
|00003720| c9 20 39 2c 31 33 2c 31 | 37 2c 32 31 2c 32 35 2c |. 9,13,1|7,21,25,|
|00003730| 32 39 2c 33 33 2c 33 37 | 3a 20 68 24 3d 22 54 68 |29,33,37|: h$="Th|
|00003740| 69 73 20 69 73 20 74 68 | 65 20 65 72 72 6f 72 20 |is is th|e error |
|00003750| 69 6e 20 74 68 65 20 66 | 69 74 74 65 64 20 70 61 |in the f|itted pa|
|00003760| 72 61 6d 65 74 65 72 2e | 7c 4d 57 68 65 6e 20 61 |rameter.||MWhen a|
|00003770| 20 6e 65 77 20 70 61 72 | 61 6d 65 74 65 72 20 76 | new par|ameter v|
|00003780| 61 6c 75 65 20 69 73 20 | 69 6e 70 75 74 2c 20 61 |alue is |input, a|
|00003790| 6c 6c 20 65 72 72 6f 72 | 73 20 61 72 65 20 62 6c |ll error|s are bl|
|000037a0| 61 6e 6b 65 64 20 6f 75 | 74 2c 7c 4d 61 6e 64 20 |anked ou|t,|Mand |
|000037b0| 79 6f 75 20 73 68 6f 75 | 6c 64 20 73 74 61 72 74 |you shou|ld start|
|000037c0| 20 61 20 6e 65 77 20 63 | 75 72 76 65 20 66 69 74 | a new c|urve fit|
|000037d0| 20 28 75 73 65 20 61 20 | 6d 65 6e 75 20 6f 70 74 | (use a |menu opt|
|000037e0| 69 6f 6e 29 2e 22 0d 15 | c2 36 c9 20 33 39 3a 20 |ion)."..|.6. 39: |
|000037f0| 68 24 3d 22 54 68 65 20 | 76 61 6c 75 65 20 6f 66 |h$="The |value of|
|00003800| 20 43 68 69 20 53 71 75 | 61 72 65 64 20 69 73 20 | Chi Squ|ared is |
|00003810| 73 68 6f 77 6e 20 68 65 | 72 65 2e 22 0d 15 cc 49 |shown he|re."...I|
|00003820| c9 20 34 31 3a 20 68 24 | 3d 22 54 68 65 20 76 61 |. 41: h$|="The va|
|00003830| 6c 75 65 20 6f 66 20 74 | 68 65 20 6f 76 65 72 61 |lue of t|he overa|
|00003840| 6c 6c 20 53 74 61 6e 64 | 61 72 64 20 44 65 76 69 |ll Stand|ard Devi|
|00003850| 61 74 69 6f 6e 20 69 73 | 20 73 68 6f 77 6e 20 68 |ation is| shown h|
|00003860| 65 72 65 2e 22 0d 15 d6 | a0 c9 20 34 33 2c 34 34 |ere."...|.. 43,44|
|00003870| 2c 34 35 2c 34 36 2c 34 | 37 2c 34 38 2c 34 39 2c |,45,46,4|7,48,49,|
|00003880| 35 30 3a 20 e7 20 a4 69 | 63 6f 6e 5f 73 65 6c 65 |50: . .i|con_sele|
|00003890| 63 74 65 64 28 69 63 6f | 6e 25 29 20 8c 20 68 24 |cted(ico|n%) . h$|
|000038a0| 3d 22 43 6c 69 63 6b 20 | 6f 6e 20 74 68 69 73 20 |="Click |on this |
|000038b0| 69 63 6f 6e 20 74 6f 20 | 75 6e 66 72 65 65 7a 65 |icon to |unfreeze|
|000038c0| 20 74 68 69 73 20 70 61 | 72 61 6d 65 74 65 72 2e | this pa|rameter.|
|000038d0| 22 20 8b 20 68 24 3d 22 | 43 6c 69 63 6b 20 6f 6e |" . h$="|Click on|
|000038e0| 20 74 68 69 73 20 69 63 | 6f 6e 20 74 6f 20 66 72 | this ic|on to fr|
|000038f0| 65 65 7a 65 20 74 68 69 | 73 20 70 61 72 61 6d 65 |eeze thi|s parame|
|00003900| 74 65 72 2e 22 0d 15 e0 | 06 20 7f 0d 15 ea 27 20 |ter."...|. ....' |
|00003910| 68 24 3d 22 54 68 69 73 | 20 69 73 20 74 68 65 20 |h$="This| is the |
|00003920| 50 61 72 61 6d 65 74 65 | 72 20 77 69 6e 64 6f 77 |Paramete|r window|
|00003930| 2e 22 0d 15 f4 06 20 cb | 0d 15 fe 05 cb 0d 16 08 |.".... .|........|
|00003940| 07 3d 68 24 0d 16 12 05 | 3a 0d 16 1c 13 dd 20 f2 |.=h$....|:..... .|
|00003950| 64 61 74 61 73 61 76 65 | 28 62 25 29 0d 16 26 27 |datasave|(b%)..&'|
|00003960| f4 20 66 69 72 73 74 20 | 68 61 6c 66 20 6f 66 20 |. first |half of |
|00003970| 6c 6f 61 64 20 64 61 74 | 61 20 70 72 6f 74 6f 63 |load dat|a protoc|
|00003980| 6f 6c 2e 0d 16 30 0e 62 | 25 21 31 32 3d 62 25 21 |ol...0.b|%!12=b%!|
|00003990| 38 0d 16 3a 27 f4 20 73 | 65 74 20 75 70 20 66 6f |8..:'. s|et up fo|
|000039a0| 72 20 27 64 61 74 61 73 | 61 76 65 61 63 6b 27 20 |r 'datas|aveack' |
|000039b0| 6d 65 73 73 61 67 65 2e | 0d 16 44 35 f4 20 64 65 |message.|..D5. de|
|000039c0| 73 74 69 6e 61 74 69 6f | 6e 20 77 69 6c 6c 20 72 |stinatio|n will r|
|000039d0| 65 70 6c 79 20 77 69 74 | 68 20 27 64 61 74 61 6c |eply wit|h 'datal|
|000039e0| 6f 61 64 27 20 6d 65 73 | 73 61 67 65 2e 0d 16 4e |oad' mes|sage...N|
|000039f0| 0b 62 25 21 31 36 3d 32 | 0d 16 58 15 66 66 24 3d |.b%!16=2|..X.ff$=|
|00003a00| a4 67 6e 61 6d 65 28 62 | 25 2b 34 34 29 0d 16 62 |.gname(b|%+44)..b|
|00003a10| 24 c8 99 20 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 |$.. "Wim|p_SendMe|
|00003a20| 73 73 61 67 65 22 2c 31 | 37 2c 62 25 2c 62 25 21 |ssage",1|7,b%,b%!|
|00003a30| 34 0d 16 6c 0f 6d 79 72 | 65 66 25 3d 62 25 21 38 |4..l.myr|ef%=b%!8|
|00003a40| 0d 16 76 0c 72 65 74 72 | 79 25 3d b9 0d 16 80 05 |..v.retr|y%=.....|
|00003a50| e1 0d 16 8a 05 3a 0d 16 | 94 16 dd 20 f2 64 61 74 |.....:..|... .dat|
|00003a60| 61 73 61 76 65 61 63 6b | 28 62 25 29 0d 16 9e 14 |asaveack|(b%)....|
|00003a70| e7 20 62 25 21 31 32 3d | 6d 79 72 65 66 25 20 8c |. b%!12=|myref% .|
|00003a80| 0d 16 a8 17 66 69 6c 65 | 24 3d a4 67 6e 61 6d 65 |....file|$=.gname|
|00003a90| 28 62 25 2b 34 34 29 0d | 16 b2 12 f2 73 61 76 65 |(b%+44).|....save|
|00003aa0| 69 74 28 66 69 6c 65 24 | 29 0d 16 bc 2e f4 20 73 |it(file$|)..... s|
|00003ab0| 61 76 65 73 20 74 6f 20 | 64 65 73 74 69 6e 61 74 |aves to |destinat|
|00003ac0| 69 6f 6e 20 6f 72 20 74 | 6f 20 3c 57 69 6d 70 24 |ion or t|o <Wimp$|
|00003ad0| 53 63 72 61 70 3e 2e 0d | 16 c6 24 f4 20 6f 6e 6c |Scrap>..|..$. onl|
|00003ae0| 79 20 75 70 64 61 74 65 | 20 66 69 6c 65 6e 61 6d |y update| filenam|
|00003af0| 65 20 69 66 20 73 65 63 | 75 72 65 0d 16 d0 1e e7 |e if sec|ure.....|
|00003b00| 20 62 25 21 33 36 3e 2d | 31 20 8c 20 24 66 6e 61 | b%!36>-|1 . $fna|
|00003b10| 6d 65 25 3d 66 69 6c 65 | 24 0d 16 da 0e 62 25 21 |me%=file|$....b%!|
|00003b20| 31 32 3d 62 25 21 38 0d | 16 e4 0b 62 25 21 31 36 |12=b%!8.|...b%!16|
|00003b30| 3d 33 0d 16 ee 0b 21 62 | 25 3d 32 35 36 0d 16 f8 |=3....!b|%=256...|
|00003b40| 2b c8 99 20 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 |+.. "Wim|p_SendMe|
|00003b50| 73 73 61 67 65 22 2c 31 | 38 2c 62 25 2c 62 25 21 |ssage",1|8,b%,b%!|
|00003b60| 32 30 2c 62 25 21 32 34 | 0d 17 02 2e f4 20 73 65 |20,b%!24|..... se|
|00003b70| 6e 64 20 27 64 61 74 61 | 20 6c 6f 61 64 27 20 6d |nd 'data| load' m|
|00003b80| 65 73 73 61 67 65 20 74 | 6f 20 64 65 73 74 69 6e |essage t|o destin|
|00003b90| 61 74 69 6f 6e 2e 0d 17 | 0c 05 cd 0d 17 16 05 e1 |ation...|........|
|00003ba0| 0d 17 20 05 3a 0d 17 2a | 13 dd 20 f2 64 61 74 61 |.. .:..*|.. .data|
|00003bb0| 6c 6f 61 64 28 62 25 29 | 0d 17 34 17 e7 20 44 61 |load(b%)|..4.. Da|
|00003bc0| 74 61 25 3d a3 20 8c 20 | 44 61 74 61 25 3d b9 0d |ta%=. . |Data%=..|
|00003bd0| 17 3e 12 e7 20 62 25 21 | 34 30 3d 26 32 46 46 20 |.>.. b%!|40=&2FF |
|00003be0| 8c 0d 17 48 17 66 69 6c | 65 24 3d a4 67 6e 61 6d |...H.fil|e$=.gnam|
|00003bf0| 65 28 62 25 2b 34 34 29 | 0d 17 52 15 f2 6c 6f 61 |e(b%+44)|..R..loa|
|00003c00| 64 5f 64 61 74 61 28 66 | 69 6c 65 24 29 0d 17 5c |d_data(f|ile$)..\|
|00003c10| 35 e7 20 a4 6c 65 61 66 | 28 66 69 6c 65 24 29 3d |5. .leaf|(file$)=|
|00003c20| 22 53 63 72 61 70 46 69 | 6c 65 22 20 8c 20 2a 44 |"ScrapFi|le" . *D|
|00003c30| 45 4c 45 54 45 20 3c 57 | 69 6d 70 24 53 63 72 61 |ELETE <W|imp$Scra|
|00003c40| 70 3e 0d 17 66 22 f4 20 | 61 63 6b 6e 6f 77 6c 65 |p>..f". |acknowle|
|00003c50| 64 67 65 20 72 65 63 65 | 69 70 74 20 6f 66 20 64 |dge rece|ipt of d|
|00003c60| 61 74 61 2e 0d 17 70 0e | 62 25 21 31 32 3d 62 25 |ata...p.|b%!12=b%|
|00003c70| 21 38 0d 17 7a 0b 62 25 | 21 31 36 3d 34 0d 17 84 |!8..z.b%|!16=4...|
|00003c80| 24 c8 99 20 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 |$.. "Wim|p_SendMe|
|00003c90| 73 73 61 67 65 22 2c 31 | 37 2c 62 25 2c 62 25 21 |ssage",1|7,b%,b%!|
|00003ca0| 34 0d 17 8e 23 e7 20 44 | 61 74 61 25 3d b9 20 8c |4...#. D|ata%=. .|
|00003cb0| 20 f2 6f 70 65 6e 77 69 | 6e 64 6f 77 28 4d 6f 64 | .openwi|ndow(Mod|
|00003cc0| 65 6c 25 29 0d 17 98 05 | cc 0d 17 a2 0b 44 61 74 |el%)....|.....Dat|
|00003cd0| 61 25 3d a3 0d 17 ac 05 | cd 0d 17 b6 05 e1 0d 17 |a%=.....|........|
|00003ce0| c0 05 3a 0d 17 ca 17 dd | 20 a4 67 6e 61 6d 65 28 |..:.....| .gname(|
|00003cf0| 70 74 72 25 29 3a ea 20 | 66 24 0d 17 d4 21 c8 95 |ptr%):. |f$...!..|
|00003d00| 20 3f 70 74 72 25 3a 66 | 24 2b 3d bd 3f 70 74 72 | ?ptr%:f|$+=.?ptr|
|00003d10| 25 3a 70 74 72 25 2b 3d | 31 3a ce 0d 17 de 07 3d |%:ptr%+=|1:.....=|
|00003d20| 66 24 0d 17 e8 05 3a 0d | 17 f2 12 dd 20 a4 6c 65 |f$....:.|.... .le|
|00003d30| 61 66 28 70 61 74 68 24 | 29 0d 17 fc 30 c8 95 20 |af(path$|)...0.. |
|00003d40| a7 70 61 74 68 24 2c 22 | 2e 22 29 3a 70 61 74 68 |.path$,"|."):path|
|00003d50| 24 3d c1 70 61 74 68 24 | 2c a7 70 61 74 68 24 2c |$=.path$|,.path$,|
|00003d60| 22 2e 22 29 2b 31 29 3a | ce 0d 18 06 0a 3d 70 61 |".")+1):|.....=pa|
|00003d70| 74 68 24 0d 18 10 05 3a | 0d 18 1a 14 dd 20 f2 73 |th$....:|..... .s|
|00003d80| 61 76 65 69 74 28 6e 61 | 6d 65 24 29 0d 18 24 2a |aveit(na|me$)..$*|
|00003d90| e7 20 a7 6e 61 6d 65 24 | 2c 22 2e 22 29 20 84 20 |. .name$|,".") . |
|00003da0| 6e 61 6d 65 24 3d 22 3c | 57 69 6d 70 24 53 63 72 |name$="<|Wimp$Scr|
|00003db0| 61 70 3e 22 20 8c 0d 18 | 2e 33 c8 99 20 22 4f 53 |ap>" ...|.3.. "OS|
|00003dc0| 5f 46 69 6c 65 22 2c 31 | 30 2c 6e 61 6d 65 24 2c |_File",1|0,name$,|
|00003dd0| 74 79 70 65 25 2c 2c 6f | 75 74 25 2c 6f 75 74 25 |type%,,o|ut%,out%|
|00003de0| 2b 73 61 76 65 6c 65 6e | 25 0d 18 38 10 21 6d 65 |+savelen|%..8.!me|
|00003df0| 6e 75 25 3d 66 69 6c 65 | 25 0d 18 42 20 c8 99 20 |nu%=file|%..B .. |
|00003e00| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|00003e10| 77 22 2c 2c 6d 65 6e 75 | 25 0d 18 4c 3c cc 20 24 |w",,menu|%..L<. $|
|00003e20| 62 25 3d 22 20 20 20 20 | 54 6f 20 73 61 76 65 2c |b%="    |To save,|
|00003e30| 20 64 72 61 67 20 74 68 | 65 20 69 63 6f 6e 20 74 | drag th|e icon t|
|00003e40| 6f 20 61 20 64 69 72 65 | 63 74 6f 72 79 20 76 69 |o a dire|ctory vi|
|00003e50| 65 77 65 72 22 0d 18 56 | 25 c8 99 20 22 57 69 6d |ewer"..V|%.. "Wim|
|00003e60| 70 5f 52 65 70 6f 72 74 | 45 72 72 6f 72 22 2c 62 |p_Report|Error",b|
|00003e70| 25 2c 31 2c 74 69 74 6c | 65 24 0d 18 60 05 cd 0d |%,1,titl|e$..`...|
|00003e80| 18 6a 05 e1 0d 18 74 05 | 3a 0d 18 7e 0c dd 20 f2 |.j....t.|:..~.. .|
|00003e90| 70 6f 70 75 70 0d 18 88 | 10 62 73 74 61 72 74 25 |popup...|.bstart%|
|00003ea0| 3d 6f 75 74 25 0d 18 92 | 13 62 65 6e 64 25 3d 6f |=out%...|.bend%=o|
|00003eb0| 75 74 25 2b 70 74 72 25 | 0d 18 9c 0d 66 66 24 3d |ut%+ptr%|....ff$=|
|00003ec0| 66 69 6c 65 24 0d 18 a6 | 12 66 6e 24 3d a4 6c 65 |file$...|.fn$=.le|
|00003ed0| 61 66 28 66 66 24 29 0d | 18 b0 17 66 6d 24 3d c0 |af(ff$).|...fm$=.|
|00003ee0| 66 66 24 2c a9 66 66 24 | 2d a9 66 6e 24 29 0d 18 |ff$,.ff$|-.fn$)..|
|00003ef0| ba 13 24 66 6e 61 6d 65 | 25 3d 66 6d 24 2b 66 6e |..$fname|%=fm$+fn|
|00003f00| 24 0d 18 c4 12 21 6f 6c | 64 62 6c 6b 25 3d 66 69 |$....!ol|dblk%=fi|
|00003f10| 6c 65 25 0d 18 ce 22 f4 | 20 74 79 70 65 25 3d 46 |le%...".| type%=F|
|00003f20| 4e 67 65 74 66 69 6c 65 | 74 79 70 65 28 66 6d 24 |Ngetfile|type(fm$|
|00003f30| 2c 66 6e 24 29 0d 18 d8 | 0e 74 79 70 65 25 3d 26 |,fn$)...|.type%=&|
|00003f40| 32 46 46 0d 18 e2 1d 24 | 73 70 72 69 74 65 25 3d |2FF....$|sprite%=|
|00003f50| a4 74 65 78 74 74 79 70 | 65 28 74 79 70 65 25 29 |.texttyp|e(type%)|
|00003f60| 0d 18 ec 25 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |...%.. "|Wimp_Get|
|00003f70| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 6f 6c |WindowSt|ate",,ol|
|00003f80| 64 62 6c 6b 25 0d 18 f6 | 21 c8 99 20 22 57 69 6d |dblk%...|!.. "Wim|
|00003f90| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 6f |p_OpenWi|ndow",,o|
|00003fa0| 6c 64 62 6c 6b 25 0d 19 | 00 38 c8 99 20 22 57 69 |ldblk%..|.8.. "Wi|
|00003fb0| 6d 70 5f 53 65 74 43 61 | 72 65 74 50 6f 73 69 74 |mp_SetCa|retPosit|
|00003fc0| 69 6f 6e 22 2c 66 69 6c | 65 25 2c 6e 61 6d 65 25 |ion",fil|e%,name%|
|00003fd0| 2c 2c 2c 2d 31 2c a9 24 | 66 6e 61 6d 65 25 0d 19 |,,,-1,.$|fname%..|
|00003fe0| 0a 05 e1 0d 19 14 05 3a | 0d 19 1e 28 dd 20 a4 74 |.......:|...(. .t|
|00003ff0| 65 78 74 74 79 70 65 28 | 74 79 70 65 25 29 3d 22 |exttype(|type%)="|
|00004000| 66 69 6c 65 5f 22 2b c3 | 7e 28 74 79 70 65 25 29 |file_"+.|~(type%)|
|00004010| 0d 19 28 05 3a 0d 19 32 | 19 dd 20 a4 67 65 74 66 |..(.:..2|.. .getf|
|00004020| 69 6c 65 74 79 70 65 28 | 70 24 2c 6e 24 29 0d 19 |iletype(|p$,n$)..|
|00004030| 3c 0b ea 20 74 79 70 65 | 25 0d 19 46 25 c8 99 20 |<.. type|%..F%.. |
|00004040| 22 4f 53 5f 46 69 6c 65 | 22 2c 31 33 2c 6e 24 2c |"OS_File|",13,n$,|
|00004050| 2c 2c 70 24 20 b8 20 2c | 2c 74 79 70 65 25 0d 19 |,,p$ . ,|,type%..|
|00004060| 50 0c f1 20 7e 74 79 70 | 65 25 0d 19 5a 16 3d 28 |P.. ~typ|e%..Z.=(|
|00004070| 74 79 70 65 25 3e 3e 38 | 29 20 80 20 26 46 46 46 |type%>>8|) . &FFF|
|00004080| 0d 19 64 05 3a 0d 19 6e | 3b dd 20 a4 63 6c 61 69 |..d.:..n|;. .clai|
|00004090| 6d 28 73 69 7a 65 25 29 | 3a c8 99 20 22 4f 53 5f |m(size%)|:.. "OS_|
|000040a0| 4d 6f 64 75 6c 65 22 2c | 36 2c 2c 2c 73 69 7a 65 |Module",|6,,,size|
|000040b0| 25 20 b8 20 2c 2c 70 74 | 72 25 3a 3d 70 74 72 25 |% . ,,pt|r%:=ptr%|
|000040c0| 0d 19 78 05 3a 0d 19 82 | 3d dd 20 f2 72 65 6c 65 |..x.:...|=. .rele|
|000040d0| 61 73 65 28 f8 20 70 74 | 72 25 29 3a e7 20 70 74 |ase(. pt|r%):. pt|
|000040e0| 72 25 20 8c 20 c8 99 20 | 22 4f 53 5f 4d 6f 64 75 |r% . .. |"OS_Modu|
|000040f0| 6c 65 22 2c 37 2c 2c 70 | 74 72 25 3a 70 74 72 25 |le",7,,p|tr%:ptr%|
|00004100| 3d 30 0d 19 8c 05 e1 0d | 19 96 05 3a 0d 19 a0 10 |=0......|...:....|
|00004110| dd 20 f2 6e 6f 61 63 6b | 28 62 25 29 0d 19 aa 14 |. .noack|(b%)....|
|00004120| e7 20 62 25 21 31 32 3d | 6d 79 72 65 66 25 20 8c |. b%!12=|myref% .|
|00004130| 0d 19 b4 0e e7 20 72 65 | 74 72 79 25 20 8c 0d 19 |..... re|try% ...|
|00004140| be 25 6f 6c 64 62 6c 6b | 25 21 31 32 3d 6f 6c 64 |.%oldblk|%!12=old|
|00004150| 62 6c 6b 25 21 38 3a 6f | 6c 64 62 6c 6b 25 21 31 |blk%!8:o|ldblk%!1|
|00004160| 36 3d 32 0d 19 c8 10 21 | 6f 6c 64 62 6c 6b 25 3d |6=2....!|oldblk%=|
|00004170| 31 30 30 0d 19 d2 23 24 | 28 6f 6c 64 62 6c 6b 25 |100...#$|(oldblk%|
|00004180| 2b 34 34 29 3d 22 3c 57 | 69 6d 70 24 53 63 72 61 |+44)="<W|imp$Scra|
|00004190| 70 3e 22 2b bd 30 0d 19 | dc 2e c8 99 20 22 57 69 |p>"+.0..|.... "Wi|
|000041a0| 6d 70 5f 53 65 6e 64 4d | 65 73 73 61 67 65 22 2c |mp_SendM|essage",|
|000041b0| 31 37 2c 6f 6c 64 62 6c | 6b 25 2c 6f 6c 64 62 6c |17,oldbl|k%,oldbl|
|000041c0| 6b 25 21 34 0d 19 e6 1d | 6d 79 72 65 66 25 3d 6f |k%!4....|myref%=o|
|000041d0| 6c 64 62 6c 6b 25 21 38 | 3a 72 65 74 72 79 25 3d |ldblk%!8|:retry%=|
|000041e0| a3 0d 19 f0 17 cc 20 85 | 20 31 2c 22 50 69 70 65 |...... .| 1,"Pipe|
|000041f0| 20 42 72 6f 6b 65 6e 22 | 0d 19 fa 05 cd 0d 1a 04 | Broken"|........|
|00004200| 05 cd 0d 1a 0e 05 e1 0d | 1a 18 05 3a 0d 1a 22 10 |........|...:..".|
|00004210| dd 20 a4 77 69 6d 70 65 | 72 72 6f 72 0d 1a 2c 1e |. .wimpe|rror..,.|
|00004220| c8 99 20 22 57 69 6d 70 | 5f 43 6f 6d 6d 61 6e 64 |.. "Wimp|_Command|
|00004230| 57 69 6e 64 6f 77 22 2c | 2d 31 0d 1a 36 0e 21 65 |Window",|-1..6.!e|
|00004240| 72 72 62 6c 6b 25 3d 9f | 0d 1a 40 25 24 28 65 72 |rrblk%=.|..@%$(er|
|00004250| 72 62 6c 6b 25 2b 34 29 | 3d f6 24 2b 22 20 61 74 |rblk%+4)|=.$+" at|
|00004260| 20 6c 69 6e 65 20 22 2b | c3 9e 2b bd 30 0d 1a 4a | line "+|..+.0..J|
|00004270| 37 c8 99 20 22 57 69 6d | 70 5f 52 65 70 6f 72 74 |7.. "Wim|p_Report|
|00004280| 45 72 72 6f 72 22 2c 65 | 72 72 62 6c 6b 25 2c 33 |Error",e|rrblk%,3|
|00004290| 2c 74 69 74 6c 65 24 20 | b8 20 2c 72 65 73 70 6f |,title$ |. ,respo|
|000042a0| 6e 73 65 25 0d 1a 54 27 | e7 20 72 65 73 70 6f 6e |nse%..T'|. respon|
|000042b0| 73 65 25 3d 32 20 8c 20 | f2 63 6c 6f 73 65 64 6f |se%=2 . |.closedo|
|000042c0| 77 6e 3a 20 3d b9 20 8b | 20 3d a3 0d 1a 5e 05 3a |wn: =. .| =...^.:|
|000042d0| 0d 1a 68 0f dd 20 f2 6d | 6f 61 6e 28 54 24 29 0d |..h.. .m|oan(T$).|
|000042e0| 1a 72 1e c8 99 20 22 57 | 69 6d 70 5f 43 6f 6d 6d |.r... "W|imp_Comm|
|000042f0| 61 6e 64 57 69 6e 64 6f | 77 22 2c 2d 31 0d 1a 7c |andWindo|w",-1..||
|00004300| 21 21 65 72 72 62 6c 6b | 25 3d 30 3a 24 28 65 72 |!!errblk|%=0:$(er|
|00004310| 72 62 6c 6b 25 2b 34 29 | 3d 54 24 2b bd 30 0d 1a |rblk%+4)|=T$+.0..|
|00004320| 86 2c c8 99 20 22 57 69 | 6d 70 5f 52 65 70 6f 72 |.,.. "Wi|mp_Repor|
|00004330| 74 45 72 72 6f 72 22 2c | 65 72 72 62 6c 6b 25 2c |tError",|errblk%,|
|00004340| 26 31 35 2c 74 69 74 6c | 65 24 0d 1a 90 05 e1 0d |&15,titl|e$......|
|00004350| 1a 9a 05 3a 0d 1a a4 10 | dd 20 f2 63 6c 6f 73 65 |...:....|. .close|
|00004360| 64 6f 77 6e 0d 1a ae 12 | 24 62 6c 6f 63 6b 25 3d |down....|$block%=|
|00004370| 22 54 41 53 4b 22 0d 1a | b8 25 c8 99 20 22 57 69 |"TASK"..|.%.. "Wi|
|00004380| 6d 70 5f 43 6c 6f 73 65 | 44 6f 77 6e 22 2c 74 61 |mp_Close|Down",ta|
|00004390| 73 6b 25 2c 21 62 6c 6f | 63 6b 25 0d 1a c2 05 e1 |sk%,!blo|ck%.....|
|000043a0| 0d 1a cc 05 3a 0d 1a d6 | 14 dd 20 f2 6c 6f 61 64 |....:...|.. .load|
|000043b0| 5f 64 61 74 61 28 66 24 | 29 0d 1a e0 14 ea 20 46 |_data(f$|)..... F|
|000043c0| 25 2c 4c 24 2c 41 25 2c | 77 69 6e 64 25 0d 1a ea |%,L$,A%,|wind%...|
|000043d0| 0c 46 25 3d 8e 28 66 24 | 29 0d 1a f4 20 f4 20 4c |.F%=.(f$|)... . L|
|000043e0| 6f 6f 6b 20 66 6f 72 20 | 27 44 41 54 41 27 20 73 |ook for |'DATA' s|
|000043f0| 74 61 74 65 6d 65 6e 74 | 2e 0d 1a fe 10 4c 69 6e |tatement|.....Lin|
|00004400| 65 31 24 3d a4 72 65 61 | 64 0d 1b 08 25 f5 3a 4c |e1$=.rea|d...%.:L|
|00004410| 24 3d a4 72 65 61 64 3a | fd 20 c0 4c 24 2c 34 29 |$=.read:|. .L$,4)|
|00004420| 3d 22 44 41 54 41 22 20 | 84 20 c5 23 46 25 0d 1b |="DATA" |. .#F%..|
|00004430| 12 42 e7 20 c5 23 46 25 | 20 8c 20 f2 6d 6f 61 6e |.B. .#F%| . .moan|
|00004440| 28 22 4e 6f 20 27 44 41 | 54 41 27 20 73 74 61 74 |("No 'DA|TA' stat|
|00004450| 65 6d 65 6e 74 20 69 6e | 20 66 69 6c 65 20 27 22 |ement in| file '"|
|00004460| 2b 66 24 2b 22 27 2e 22 | 29 3a d9 23 46 25 3a e1 |+f$+"'."|):.#F%:.|
|00004470| 0d 1b 1c 0c 4c 24 3d a4 | 72 65 61 64 0d 1b 26 1e |....L$=.|read..&.|
|00004480| 4e 64 61 74 61 25 3d bb | 28 a4 65 78 74 72 61 63 |Ndata%=.|(.extrac|
|00004490| 74 28 22 2c 22 2c 4c 24 | 29 29 0d 1b 30 1d 53 69 |t(",",L$|))..0.Si|
|000044a0| 67 65 78 3d bb 28 a4 65 | 78 74 72 61 63 74 28 22 |gex=.(.e|xtract("|
|000044b0| 2c 22 2c 4c 24 29 29 0d | 1b 3a 13 e3 20 41 25 3d |,",L$)).|.:.. A%=|
|000044c0| 31 20 b8 20 4e 64 61 74 | 61 25 0d 1b 44 0c 4c 24 |1 . Ndat|a%..D.L$|
|000044d0| 3d a4 72 65 61 64 0d 1b | 4e 1d 58 28 41 25 29 3d |=.read..|N.X(A%)=|
|000044e0| bb 28 a4 65 78 74 72 61 | 63 74 28 22 2c 22 2c 4c |.(.extra|ct(",",L|
|000044f0| 24 29 29 0d 1b 58 1d 59 | 28 41 25 29 3d bb 28 a4 |$))..X.Y|(A%)=.(.|
|00004500| 65 78 74 72 61 63 74 28 | 22 2c 22 2c 4c 24 29 29 |extract(|",",L$))|
|00004510| 0d 1b 62 20 45 72 72 59 | 28 41 25 29 3d bb 28 a4 |..b ErrY|(A%)=.(.|
|00004520| 65 78 74 72 61 63 74 28 | 22 2c 22 2c 4c 24 29 29 |extract(|",",L$))|
|00004530| 0d 1b 6c 08 ed 20 41 25 | 0d 1b 76 0d 50 6f 73 25 |..l.. A%|..v.Pos%|
|00004540| 3d 8f 23 46 25 0d 1b 80 | 21 f4 20 4c 6f 6f 6b 20 |=.#F%...|!. Look |
|00004550| 66 6f 72 20 27 4d 4f 44 | 45 4c 27 20 73 74 61 74 |for 'MOD|EL' stat|
|00004560| 65 6d 65 6e 74 2e 0d 1b | 8a 26 f5 3a 4c 24 3d a4 |ement...|.&.:L$=.|
|00004570| 72 65 61 64 3a fd 20 c0 | 4c 24 2c 35 29 3d 22 4d |read:. .|L$,5)="M|
|00004580| 4f 44 45 4c 22 20 84 20 | c5 23 46 25 0d 1b 94 0c |ODEL" . |.#F%....|
|00004590| e7 20 c5 23 46 25 20 8c | 0d 1b 9e 4c f2 6d 6f 61 |. .#F% .|...L.moa|
|000045a0| 6e 28 22 4e 6f 20 6d 6f | 64 65 6c 20 70 72 65 73 |n("No mo|del pres|
|000045b0| 65 6e 74 20 69 6e 20 66 | 69 6c 65 27 22 2b 66 24 |ent in f|ile'"+f$|
|000045c0| 2b 22 27 2c 20 49 20 77 | 69 6c 6c 20 69 6e 73 65 |+"', I w|ill inse|
|000045d0| 72 74 20 27 4c 69 6e 65 | 61 72 27 20 6d 6f 64 65 |rt 'Line|ar' mode|
|000045e0| 6c 2e 22 29 0d 1b a8 14 | f2 5f 53 65 6c 65 63 74 |l.")....|._Select|
|000045f0| 4d 6f 64 65 6c 28 31 29 | 0d 1b b2 05 cc 0d 1b bc |Model(1)|........|
|00004600| 11 4d 54 69 74 6c 65 24 | 3d a4 72 65 61 64 0d 1b |.MTitle$|=.read..|
|00004610| c6 0f 46 75 6e 63 24 3d | a4 72 65 61 64 0d 1b d0 |..Func$=|.read...|
|00004620| 12 41 75 78 46 75 6e 63 | 24 3d a4 72 65 61 64 0d |.AuxFunc|$=.read.|
|00004630| 1b da 14 50 61 72 61 6d | 73 25 3d bb 28 a4 72 65 |...Param|s%=.(.re|
|00004640| 61 64 29 0d 1b e4 1d e3 | 20 41 25 3d 31 20 b8 20 |ad).....| A%=1 . |
|00004650| 50 61 72 61 6d 73 25 3a | 4c 24 3d a4 72 65 61 64 |Params%:|L$=.read|
|00004660| 0d 1b ee 21 50 61 72 61 | 6d 28 41 25 29 3d bb 28 |...!Para|m(A%)=.(|
|00004670| a4 65 78 74 72 61 63 74 | 28 22 2c 22 2c 4c 24 29 |.extract|(",",L$)|
|00004680| 29 0d 1b f8 23 46 72 6f | 7a 65 6e 25 28 41 25 29 |)...#Fro|zen%(A%)|
|00004690| 3d bb 28 a4 65 78 74 72 | 61 63 74 28 22 2c 22 2c |=.(.extr|act(",",|
|000046a0| 4c 24 29 29 0d 1c 02 08 | ed 20 41 25 0d 1c 0c 28 |L$))....|. A%...(|
|000046b0| e3 20 41 25 3d 31 20 b8 | 20 50 61 72 61 6d 73 25 |. A%=1 .| Params%|
|000046c0| 3a 64 46 69 24 28 41 25 | 29 3d a4 72 65 61 64 3a |:dFi$(A%|)=.read:|
|000046d0| ed 20 41 25 0d 1c 16 05 | cd 0d 1c 20 3e f4 20 4c |. A%....|... >. L|
|000046e0| 6f 6f 6b 20 66 6f 72 20 | 27 4c 45 47 45 4e 44 27 |ook for |'LEGEND'|
|000046f0| 20 73 74 61 74 65 6d 65 | 6e 74 20 28 46 6f 72 20 | stateme|nt (For |
|00004700| 53 63 69 47 72 61 70 68 | 20 63 6f 6d 70 61 74 61 |SciGraph| compata|
|00004710| 62 69 6c 69 74 79 29 0d | 1c 2a 0d cf 23 46 25 3d |bility).|.*..#F%=|
|00004720| 50 6f 73 25 0d 1c 34 27 | f5 3a 4c 24 3d a4 72 65 |Pos%..4'|.:L$=.re|
|00004730| 61 64 3a fd 20 c0 4c 24 | 2c 36 29 3d 22 4c 45 47 |ad:. .L$|,6)="LEG|
|00004740| 45 4e 44 22 20 84 20 c5 | 23 46 25 0d 1c 3e 0e e7 |END" . .|#F%..>..|
|00004750| 20 ac 20 c5 23 46 25 20 | 8c 0d 1c 48 10 54 69 74 | . .#F% |...H.Tit|
|00004760| 6c 65 24 3d a4 72 65 61 | 64 0d 1c 52 11 58 6c 61 |le$=.rea|d..R.Xla|
|00004770| 62 6c 65 24 3d a4 72 65 | 61 64 0d 1c 5c 11 59 6c |ble$=.re|ad..\.Yl|
|00004780| 61 62 6c 65 24 3d a4 72 | 65 61 64 0d 1c 66 14 58 |able$=.r|ead..f.X|
|00004790| 45 66 6c 61 67 25 3d bb | 28 a4 72 65 61 64 29 0d |Eflag%=.|(.read).|
|000047a0| 1c 70 14 59 45 66 6c 61 | 67 25 3d bb 28 a4 72 65 |.p.YEfla|g%=.(.re|
|000047b0| 61 64 29 0d 1c 7a 05 cd | 0d 1c 84 08 d9 23 46 25 |ad)..z..|.....#F%|
|000047c0| 0d 1c 8e 20 f4 20 75 70 | 64 61 74 65 20 4d 6f 64 |... . up|date Mod|
|000047d0| 65 6c 20 77 69 6e 64 6f | 77 20 69 63 6f 6e 73 2e |el windo|w icons.|
|000047e0| 0d 1c 98 10 77 69 6e 64 | 25 3d 4d 6f 64 65 6c 25 |....wind|%=Model%|
|000047f0| 0d 1c a2 1f 44 61 74 61 | 46 69 6c 65 24 3d 22 46 |....Data|File$="F|
|00004800| 69 6c 65 20 3d 20 22 2b | c2 66 24 2c 34 30 29 0d |ile = "+|.f$,40).|
|00004810| 1c ac 25 f2 73 65 74 76 | 61 72 69 63 6f 6e 28 44 |..%.setv|aricon(D|
|00004820| 61 74 61 46 69 6c 65 48 | 25 2c 44 61 74 61 46 69 |ataFileH|%,DataFi|
|00004830| 6c 65 24 29 0d 1c b6 21 | f2 73 65 74 76 61 72 69 |le$)...!|.setvari|
|00004840| 63 6f 6e 28 4d 54 69 74 | 6c 65 48 25 2c 4d 54 69 |con(MTit|leH%,MTi|
|00004850| 74 6c 65 24 29 0d 1c c0 | 1d f2 73 65 74 76 61 72 |tle$)...|..setvar|
|00004860| 69 63 6f 6e 28 46 75 6e | 63 48 25 2c 46 75 6e 63 |icon(Fun|cH%,Func|
|00004870| 24 29 0d 1c ca 23 f2 73 | 65 74 76 61 72 69 63 6f |$)...#.s|etvarico|
|00004880| 6e 28 41 75 78 46 75 6e | 63 48 25 2c 41 75 78 46 |n(AuxFun|cH%,AuxF|
|00004890| 75 6e 63 24 29 0d 1c d4 | 39 e3 20 41 25 3d 31 20 |unc$)...|9. A%=1 |
|000048a0| b8 20 50 61 72 61 6d 73 | 25 3a f2 73 65 74 76 61 |. Params|%:.setva|
|000048b0| 72 69 63 6f 6e 28 64 46 | 69 48 25 28 41 25 29 2c |ricon(dF|iH%(A%),|
|000048c0| 64 46 69 24 28 41 25 29 | 29 3a ed 20 41 25 0d 1c |dFi$(A%)|):. A%..|
|000048d0| de 35 e3 20 41 25 3d 50 | 61 72 61 6d 73 25 2b 31 |.5. A%=P|arams%+1|
|000048e0| 20 b8 20 38 3a f2 73 65 | 74 76 61 72 69 63 6f 6e | . 8:.se|tvaricon|
|000048f0| 28 64 46 69 48 25 28 41 | 25 29 2c 22 22 29 3a ed |(dFiH%(A|%),""):.|
|00004900| 20 41 25 0d 1c e8 14 77 | 69 6e 64 25 3d 50 61 72 | A%....w|ind%=Par|
|00004910| 61 6d 65 74 65 72 25 0d | 1c f2 24 f2 73 65 74 76 |ameter%.|..$.setv|
|00004920| 61 72 69 63 6f 6e 28 50 | 61 72 61 6d 73 48 25 2c |aricon(P|aramsH%,|
|00004930| c3 28 50 61 72 61 6d 73 | 25 29 29 0d 1c fc 14 e3 |.(Params|%)).....|
|00004940| 20 41 25 3d 31 20 b8 20 | 50 61 72 61 6d 73 25 0d | A%=1 . |Params%.|
|00004950| 1d 06 31 f2 73 65 74 76 | 61 72 69 63 6f 6e 28 50 |..1.setv|aricon(P|
|00004960| 61 72 61 6d 48 25 28 41 | 25 29 2c a4 5f 52 6f 75 |aramH%(A|%),._Rou|
|00004970| 6e 64 28 50 61 72 61 6d | 28 41 25 29 2c 35 29 29 |nd(Param|(A%),5))|
|00004980| 0d 1d 10 1f f2 73 65 74 | 76 61 72 69 63 6f 6e 28 |.....set|varicon(|
|00004990| 45 72 72 6f 72 48 25 28 | 41 25 29 2c 22 22 29 0d |ErrorH%(|A%),"").|
|000049a0| 1d 1a 3d e7 20 46 72 6f | 7a 65 6e 25 28 41 25 29 |..=. Fro|zen%(A%)|
|000049b0| 20 8c 20 f2 73 65 6c 65 | 63 74 69 63 6f 6e 28 41 | . .sele|cticon(A|
|000049c0| 25 2b 34 32 29 20 8b 20 | f2 64 65 73 65 6c 65 63 |%+42) . |.deselec|
|000049d0| 74 69 63 6f 6e 28 41 25 | 2b 34 32 29 0d 1d 24 08 |ticon(A%|+42)..$.|
|000049e0| ed 20 41 25 0d 1d 2e 16 | e3 20 41 25 3d 50 61 72 |. A%....|. A%=Par|
|000049f0| 61 6d 73 25 2b 31 20 b8 | 20 38 0d 1d 38 1f f2 73 |ams%+1 .| 8..8..s|
|00004a00| 65 74 76 61 72 69 63 6f | 6e 28 50 61 72 61 6d 48 |etvarico|n(ParamH|
|00004a10| 25 28 41 25 29 2c 22 22 | 29 0d 1d 42 1f f2 73 65 |%(A%),""|)..B..se|
|00004a20| 74 76 61 72 69 63 6f 6e | 28 45 72 72 6f 72 48 25 |tvaricon|(ErrorH%|
|00004a30| 28 41 25 29 2c 22 22 29 | 0d 1d 4c 18 f2 64 65 73 |(A%),"")|..L..des|
|00004a40| 65 6c 65 63 74 69 63 6f | 6e 28 41 25 2b 34 32 29 |electico|n(A%+42)|
|00004a50| 0d 1d 56 08 ed 20 41 25 | 0d 1d 60 0e 44 61 74 61 |..V.. A%|..`.Data|
|00004a60| 45 72 72 25 3d a3 0d 1d | 6a 13 e3 20 41 25 3d 31 |Err%=...|j.. A%=1|
|00004a70| 20 b8 20 4e 64 61 74 61 | 25 0d 1d 74 23 e7 20 94 | . Ndata|%..t#. .|
|00004a80| 28 45 72 72 59 28 41 25 | 29 29 3e 31 45 2d 38 20 |(ErrY(A%|))>1E-8 |
|00004a90| 8c 20 44 61 74 61 45 72 | 72 25 3d b9 0d 1d 7e 08 |. DataEr|r%=...~.|
|00004aa0| ed 20 41 25 0d 1d 88 18 | f2 75 6e 67 72 65 79 69 |. A%....|.ungreyi|
|00004ab0| 63 6f 6e 28 53 69 67 65 | 78 48 25 29 0d 1d 92 10 |con(Sige|xH%)....|
|00004ac0| e7 20 44 61 74 61 45 72 | 72 25 20 8c 0d 1d 9c 1b |. DataEr|r% .....|
|00004ad0| f2 73 65 74 76 61 72 69 | 63 6f 6e 28 53 69 67 65 |.setvari|con(Sige|
|00004ae0| 78 48 25 2c 22 22 29 0d | 1d a6 16 f2 67 72 65 79 |xH%,"").|....grey|
|00004af0| 69 63 6f 6e 28 53 69 67 | 65 78 48 25 29 0d 1d b0 |icon(Sig|exH%)...|
|00004b00| 05 cc 0d 1d ba 1a e7 20 | 53 69 67 65 78 3d 30 20 |....... |Sigex=0 |
|00004b10| 8c 20 53 69 67 65 78 3d | 30 2e 30 31 0d 1d c4 29 |. Sigex=|0.01...)|
|00004b20| f2 73 65 74 76 61 72 69 | 63 6f 6e 28 53 69 67 65 |.setvari|con(Sige|
|00004b30| 78 48 25 2c a4 5f 52 6f | 75 6e 64 28 53 69 67 65 |xH%,._Ro|und(Sige|
|00004b40| 78 2c 34 29 29 0d 1d ce | 05 cd 0d 1d d8 1c f2 73 |x,4))...|.......s|
|00004b50| 65 74 76 61 72 69 63 6f | 6e 28 43 68 69 53 71 72 |etvarico|n(ChiSqr|
|00004b60| 48 25 2c 22 22 29 0d 1d | e2 1b f2 73 65 74 76 61 |H%,"")..|...setva|
|00004b70| 72 69 63 6f 6e 28 53 74 | 44 65 76 48 25 2c 22 22 |ricon(St|DevH%,""|
|00004b80| 29 0d 1d ec 05 e1 0d 1d | f6 05 3a 0d 1e 00 13 dd |).......|..:.....|
|00004b90| 20 a4 72 65 61 64 3a ea | 20 41 25 2c 41 24 0d 1e | .read:.| A%,A$..|
|00004ba0| 0a 10 41 24 3d be 23 46 | 25 3a 41 25 3d 30 0d 1e |..A$=.#F|%:A%=0..|
|00004bb0| 14 1c f5 3a 41 25 2b 3d | 31 3a fd 20 c1 41 24 2c |...:A%+=|1:. .A$,|
|00004bc0| 41 25 2c 31 29 3c 3e 22 | 20 22 0d 1e 1e 0c 3d c1 |A%,1)<>"| "....=.|
|00004bd0| 41 24 2c 41 25 29 0d 1e | 28 05 3a 0d 1e 32 17 dd |A$,A%)..|(.:..2..|
|00004be0| 20 a4 65 78 74 72 61 63 | 74 28 54 24 2c f8 20 4c | .extrac|t(T$,. L|
|00004bf0| 24 29 0d 1e 3c 0b ea 20 | 41 25 2c 41 24 0d 1e 46 |$)..<.. |A%,A$..F|
|00004c00| 0e 41 25 3d a7 4c 24 2c | 54 24 29 0d 1e 50 0c e7 |.A%=.L$,|T$)..P..|
|00004c10| 20 41 25 3d 30 20 8c 0d | 1e 5a 0f 41 24 3d 4c 24 | A%=0 ..|.Z.A$=L$|
|00004c20| 3a 4c 24 3d 22 22 0d 1e | 64 05 cc 0d 1e 6e 1d 41 |:L$=""..|d....n.A|
|00004c30| 24 3d c0 4c 24 2c 41 25 | 2d 31 29 3a 4c 24 3d c1 |$=.L$,A%|-1):L$=.|
|00004c40| 4c 24 2c 41 25 2b 31 29 | 0d 1e 78 05 cd 0d 1e 82 |L$,A%+1)|..x.....|
|00004c50| 07 3d 41 24 0d 1e 8c 05 | 3a 0d 1e 96 0f dd 20 a4 |.=A$....|:..... .|
|00004c60| 5f 43 61 6c 63 28 58 29 | 0d 1e a0 24 ea 20 41 25 |_Calc(X)|...$. A%|
|00004c70| 2c 46 2c 55 2c 50 31 2c | 50 32 2c 50 33 2c 50 34 |,F,U,P1,|P2,P3,P4|
|00004c80| 2c 50 35 2c 50 36 2c 50 | 37 2c 50 38 0d 1e aa 0f |,P5,P6,P|7,P8....|
|00004c90| 50 31 3d 50 61 72 61 6d | 28 31 29 0d 1e b4 0f 50 |P1=Param|(1)....P|
|00004ca0| 32 3d 50 61 72 61 6d 28 | 32 29 0d 1e be 0f 50 33 |2=Param(|2)....P3|
|00004cb0| 3d 50 61 72 61 6d 28 33 | 29 0d 1e c8 0f 50 34 3d |=Param(3|)....P4=|
|00004cc0| 50 61 72 61 6d 28 34 29 | 0d 1e d2 0f 50 35 3d 50 |Param(4)|....P5=P|
|00004cd0| 61 72 61 6d 28 35 29 0d | 1e dc 0f 50 36 3d 50 61 |aram(5).|...P6=Pa|
|00004ce0| 72 61 6d 28 36 29 0d 1e | e6 0f 50 37 3d 50 61 72 |ram(6)..|..P7=Par|
|00004cf0| 61 6d 28 37 29 0d 1e f0 | 0f 50 38 3d 50 61 72 61 |am(7)...|.P8=Para|
|00004d00| 6d 28 38 29 0d 1e fa 11 | e7 20 46 75 6e 63 24 3c |m(8)....|. Func$<|
|00004d10| 3e 22 22 20 8c 0d 1f 04 | 28 e7 20 41 75 78 46 75 |>"" ....|(. AuxFu|
|00004d20| 6e 63 24 3c 3e 22 22 20 | 8c 20 55 3d a0 28 41 75 |nc$<>"" |. U=.(Au|
|00004d30| 78 46 75 6e 63 24 29 20 | 8b 20 55 3d 30 0d 1f 0e |xFunc$) |. U=0...|
|00004d40| 0e 46 3d a0 28 46 75 6e | 63 24 29 0d 1f 18 14 e3 |.F=.(Fun|c$).....|
|00004d50| 20 41 25 3d 31 20 b8 20 | 50 61 72 61 6d 73 25 0d | A%=1 . |Params%.|
|00004d60| 1f 22 19 64 46 64 50 69 | 28 41 25 29 3d a0 28 64 |.".dFdPi|(A%)=.(d|
|00004d70| 46 69 24 28 41 25 29 29 | 0d 1f 2c 08 ed 20 41 25 |Fi$(A%))|..,.. A%|
|00004d80| 0d 1f 36 05 cc 0d 1f 40 | 07 46 3d 30 0d 1f 4a 14 |..6....@|.F=0..J.|
|00004d90| e3 20 41 25 3d 31 20 b8 | 20 50 61 72 61 6d 73 25 |. A%=1 .| Params%|
|00004da0| 0d 1f 54 0f 64 46 64 50 | 69 28 41 25 29 3d 30 0d |..T.dFdP|i(A%)=0.|
|00004db0| 1f 5e 08 ed 20 41 25 0d | 1f 68 05 cd 0d 1f 72 06 |.^.. A%.|.h....r.|
|00004dc0| 3d 46 0d 1f 7c 05 3a 0d | 1f 86 0c dd 20 f2 65 72 |=F..|.:.|.... .er|
|00004dd0| 72 6f 72 0d 1f 90 09 ee | 20 85 20 87 0d 1f 9a 19 |ror.....| . .....|
|00004de0| f1 20 f6 24 2b 22 20 61 | 74 20 6c 69 6e 65 20 22 |. .$+" a|t line "|
|00004df0| 2b c3 28 9e 29 0d 1f a4 | 05 e1 0d 1f ae 05 3a 0d |+.(.)...|......:.|
|00004e00| 1f b8 13 dd 20 f2 74 72 | 61 63 65 28 46 6c 61 67 |.... .tr|ace(Flag|
|00004e10| 25 29 0d 1f c2 0d e7 20 | 46 6c 61 67 25 20 8c 0d |%)..... |Flag% ..|
|00004e20| 1f cc 13 24 74 72 61 63 | 65 25 3d 22 54 72 61 63 |...$trac|e%="Trac|
|00004e30| 65 22 0d 1f d6 22 c8 99 | 20 22 57 69 6d 70 5f 43 |e"..."..| "Wimp_C|
|00004e40| 6f 6d 6d 61 6e 64 57 69 | 6e 64 6f 77 22 2c 74 72 |ommandWi|ndow",tr|
|00004e50| 61 63 65 25 0d 1f e0 10 | 53 70 6f 6f 6c 46 6c 61 |ace%....|SpoolFla|
|00004e60| 67 25 3d b9 0d 1f ea 07 | fc 20 ee 0d 1f f4 1a 2a |g%=.....|. .....*|
|00004e70| 53 50 4f 4f 4c 20 52 41 | 4d 3a 24 2e 54 72 61 63 |SPOOL RA|M:$.Trac|
|00004e80| 65 46 69 6c 65 0d 1f fe | 05 cc 0d 20 08 07 fc 20 |eFile...|... ... |
|00004e90| 87 0d 20 12 0a 2a 53 50 | 4f 4f 4c 0d 20 1c 10 53 |.. ..*SP|OOL. ..S|
|00004ea0| 70 6f 6f 6c 46 6c 61 67 | 25 3d a3 0d 20 26 1d c8 |poolFlag|%=.. &..|
|00004eb0| 99 20 22 57 69 6d 70 5f | 43 6f 6d 6d 61 6e 64 57 |. "Wimp_|CommandW|
|00004ec0| 69 6e 64 6f 77 22 2c 30 | 0d 20 30 05 cd 0d 20 3a |indow",0|. 0... :|
|00004ed0| 05 e1 0d 20 44 05 3a 0d | 20 4e 15 dd 20 a4 62 6f |... D.:.| N.. .bo|
|00004ee0| 6f 6c 65 61 6e 28 54 24 | 2c 41 25 29 0d 20 58 08 |olean(T$|,A%). X.|
|00004ef0| ea 20 41 24 0d 20 62 0b | c8 8e 20 41 25 20 ca 0d |. A$. b.|.. A% ..|
|00004f00| 20 6c 13 c9 20 b9 20 20 | 3a 41 24 3d 22 54 52 55 | l.. .  |:A$="TRU|
|00004f10| 45 22 0d 20 76 13 c9 20 | a3 20 3a 41 24 3d 22 46 |E". v.. |. :A$="F|
|00004f20| 41 4c 53 45 22 0d 20 80 | 05 cb 0d 20 8a 10 3d 54 |ALSE". .|... ..=T|
|00004f30| 24 2b 22 20 3d 20 22 2b | 41 24 0d 20 94 05 3a 0d |$+" = "+|A$. ..:.|
|00004f40| 20 9e 13 dd 20 a4 5f 52 | 6f 75 6e 64 28 58 2c 44 | ... ._R|ound(X,D|
|00004f50| 25 29 0d 20 a8 17 ea 20 | 41 25 2c 45 25 2c 41 24 |%). ... |A%,E%,A$|
|00004f60| 2c 42 24 2c 45 24 2c 50 | 25 0d 20 b2 09 50 25 3d |,B$,E$,P|%. ..P%=|
|00004f70| 40 25 0d 20 bc 1b 40 25 | 3d 26 30 31 30 30 30 30 |@%. ..@%|=&010000|
|00004f80| 30 41 2b 32 35 36 2a 28 | 44 25 2b 31 29 0d 20 c6 |0A+256*(|D%+1). .|
|00004f90| 0b 41 24 3d c3 28 58 29 | 0d 20 d0 0f 41 25 3d a7 |.A$=.(X)|. ..A%=.|
|00004fa0| 41 24 2c 22 2e 22 29 0d | 20 da 0f 45 25 3d a7 41 |A$,".").| ..E%=.A|
|00004fb0| 24 2c 22 45 22 29 0d 20 | e4 0c e7 20 45 25 3e 30 |$,"E"). |... E%>0|
|00004fc0| 20 8c 0d 20 ee 0e 45 24 | 3d c1 41 24 2c 45 25 29 | .. ..E$|=.A$,E%)|
|00004fd0| 0d 20 f8 10 41 24 3d c0 | 41 24 2c 45 25 2d 31 29 |. ..A$=.|A$,E%-1)|
|00004fe0| 0d 21 02 05 cc 0d 21 0c | 09 45 24 3d 22 22 0d 21 |.!....!.|.E$="".!|
|00004ff0| 16 05 cd 0d 21 20 28 e7 | 20 41 25 3e 30 20 8c 20 |....! (.| A%>0 . |
|00005000| 42 24 3d c0 41 24 2c 41 | 25 2b 44 25 29 2b 45 24 |B$=.A$,A|%+D%)+E$|
|00005010| 20 8b 20 42 24 3d 41 24 | 2b 45 24 0d 21 2a 09 40 | . B$=A$|+E$.!*.@|
|00005020| 25 3d 50 25 0d 21 34 07 | 3d 42 24 0d 21 3e 05 3a |%=P%.!4.|=B$.!>.:|
|00005030| 0d 21 48 18 dd 20 a4 5f | 52 6f 75 6e 64 46 69 78 |.!H.. ._|RoundFix|
|00005040| 65 64 28 58 2c 44 25 29 | 0d 21 52 1a ea 20 41 25 |ed(X,D%)|.!R.. A%|
|00005050| 2c 45 25 2c 41 24 2c 42 | 24 2c 45 24 2c 50 25 2c |,E%,A$,B|$,E$,P%,|
|00005060| 52 25 0d 21 5c 09 50 25 | 3d 40 25 0d 21 66 1b 40 |R%.!\.P%|=@%.!f.@|
|00005070| 25 3d 26 30 31 30 32 30 | 30 30 41 2b 32 35 36 2a |%=&01020|00A+256*|
|00005080| 28 44 25 2b 31 29 0d 21 | 70 0b 41 24 3d c3 28 58 |(D%+1).!|p.A$=.(X|
|00005090| 29 0d 21 7a 0f 41 25 3d | a7 41 24 2c 22 2e 22 29 |).!z.A%=|.A$,".")|
|000050a0| 0d 21 84 0f 45 25 3d a7 | 41 24 2c 22 45 22 29 0d |.!..E%=.|A$,"E").|
|000050b0| 21 8e 0c e7 20 45 25 3e | 30 20 8c 0d 21 98 0e 45 |!... E%>|0 ..!..E|
|000050c0| 24 3d c1 41 24 2c 45 25 | 29 0d 21 a2 10 41 24 3d |$=.A$,E%|).!..A$=|
|000050d0| c0 41 24 2c 45 25 2d 31 | 29 0d 21 ac 05 cc 0d 21 |.A$,E%-1|).!....!|
|000050e0| b6 09 45 24 3d 22 22 0d | 21 c0 05 cd 0d 21 ca 0c |..E$="".|!....!..|
|000050f0| e7 20 41 25 3e 30 20 8c | 0d 21 d4 13 52 25 3d a9 |. A%>0 .|.!..R%=.|
|00005100| 28 c1 41 24 2c 41 25 2b | 31 29 29 0d 21 de 20 42 |(.A$,A%+|1)).!. B|
|00005110| 24 3d c0 41 24 2c 41 25 | 2b 44 25 29 2b c4 44 25 |$=.A$,A%|+D%)+.D%|
|00005120| 2d 52 25 2c 22 30 22 29 | 2b 45 24 0d 21 e8 05 cc |-R%,"0")|+E$.!...|
|00005130| 0d 21 f2 19 42 24 3d 41 | 24 2b 22 2e 22 2b c4 44 |.!..B$=A|$+"."+.D|
|00005140| 25 2c 22 30 22 29 2b 45 | 24 0d 21 fc 05 cd 0d 22 |%,"0")+E|$.!...."|
|00005150| 06 09 40 25 3d 50 25 0d | 22 10 07 3d 42 24 0d 22 |..@%=P%.|"..=B$."|
|00005160| 1a 05 3a 0d 22 24 0b dd | 20 a4 73 61 76 65 0d 22 |..:."$..| .save."|
|00005170| 2e 10 ea 20 4c 24 2c 41 | 25 2c 70 74 72 25 0d 22 |... L$,A|%,ptr%."|
|00005180| 38 0a 70 74 72 25 3d 30 | 0d 22 42 1f f2 77 72 69 |8.ptr%=0|."B..wri|
|00005190| 74 65 28 22 2a 20 44 61 | 74 61 20 22 2b 44 61 74 |te("* Da|ta "+Dat|
|000051a0| 61 46 69 6c 65 24 29 0d | 22 4c 12 f2 77 72 69 74 |aFile$).|"L..writ|
|000051b0| 65 28 4c 69 6e 65 31 24 | 29 0d 22 56 12 f2 77 72 |e(Line1$|)."V..wr|
|000051c0| 69 74 65 28 22 44 41 54 | 41 22 29 0d 22 60 2a f2 |ite("DAT|A")."`*.|
|000051d0| 77 72 69 74 65 28 c3 28 | 4e 64 61 74 61 25 29 2b |write(.(|Ndata%)+|
|000051e0| 22 2c 22 2b a4 5f 52 6f | 75 6e 64 28 53 69 67 65 |","+._Ro|und(Sige|
|000051f0| 78 2c 35 29 29 0d 22 6a | 13 e3 20 41 25 3d 31 20 |x,5))."j|.. A%=1 |
|00005200| b8 20 4e 64 61 74 61 25 | 0d 22 74 25 e7 20 4d 54 |. Ndata%|."t%. MT|
|00005210| 69 74 6c 65 24 3d 22 45 | 6e 74 68 61 6c 70 79 20 |itle$="E|nthalpy |
|00005220| 52 65 6c 61 78 61 74 69 | 6f 6e 22 20 8c 0d 22 7e |Relaxati|on" .."~|
|00005230| 53 4c 24 3d a4 5f 52 6f | 75 6e 64 46 69 78 65 64 |SL$=._Ro|undFixed|
|00005240| 28 58 28 41 25 29 2c 34 | 29 2b 22 2c 22 2b a4 5f |(X(A%),4|)+","+._|
|00005250| 52 6f 75 6e 64 46 69 78 | 65 64 28 59 28 41 25 29 |RoundFix|ed(Y(A%)|
|00005260| 2c 32 29 2b 22 2c 22 2b | a4 5f 52 6f 75 6e 64 46 |,2)+","+|._RoundF|
|00005270| 69 78 65 64 28 45 72 72 | 59 28 41 25 29 2c 32 29 |ixed(Err|Y(A%),2)|
|00005280| 0d 22 88 05 cc 0d 22 92 | 44 4c 24 3d a4 5f 52 6f |."....".|DL$=._Ro|
|00005290| 75 6e 64 28 58 28 41 25 | 29 2c 35 29 2b 22 2c 22 |und(X(A%|),5)+","|
|000052a0| 2b a4 5f 52 6f 75 6e 64 | 28 59 28 41 25 29 2c 35 |+._Round|(Y(A%),5|
|000052b0| 29 2b 22 2c 22 2b a4 5f | 52 6f 75 6e 64 28 45 72 |)+","+._|Round(Er|
|000052c0| 72 59 28 41 25 29 2c 35 | 29 0d 22 9c 05 cd 0d 22 |rY(A%),5|)."...."|
|000052d0| a6 0e f2 77 72 69 74 65 | 28 4c 24 29 0d 22 b0 08 |...write|(L$)."..|
|000052e0| ed 20 41 25 0d 22 ba 13 | f2 77 72 69 74 65 28 22 |. A%."..|.write("|
|000052f0| 4d 4f 44 45 4c 22 29 0d | 22 c4 13 f2 77 72 69 74 |MODEL").|"...writ|
|00005300| 65 28 4d 54 69 74 6c 65 | 24 29 0d 22 ce 11 f2 77 |e(MTitle|$)."...w|
|00005310| 72 69 74 65 28 46 75 6e | 63 24 29 0d 22 d8 14 f2 |rite(Fun|c$)."...|
|00005320| 77 72 69 74 65 28 41 75 | 78 46 75 6e 63 24 29 0d |write(Au|xFunc$).|
|00005330| 22 e2 16 f2 77 72 69 74 | 65 28 c3 28 50 61 72 61 |"...writ|e(.(Para|
|00005340| 6d 73 25 29 29 0d 22 ec | 14 e3 20 41 25 3d 31 20 |ms%)).".|.. A%=1 |
|00005350| b8 20 50 61 72 61 6d 73 | 25 0d 22 f6 33 f2 77 72 |. Params|%.".3.wr|
|00005360| 69 74 65 28 a4 5f 52 6f | 75 6e 64 28 50 61 72 61 |ite(._Ro|und(Para|
|00005370| 6d 28 41 25 29 2c 35 29 | 2b 22 2c 22 2b c3 28 46 |m(A%),5)|+","+.(F|
|00005380| 72 6f 7a 65 6e 25 28 41 | 25 29 29 29 0d 23 00 08 |rozen%(A|%))).#..|
|00005390| ed 20 41 25 0d 23 0a 14 | e3 20 41 25 3d 31 20 b8 |. A%.#..|. A%=1 .|
|000053a0| 20 50 61 72 61 6d 73 25 | 0d 23 14 14 f2 77 72 69 | Params%|.#...wri|
|000053b0| 74 65 28 64 46 69 24 28 | 41 25 29 29 0d 23 1e 08 |te(dFi$(|A%)).#..|
|000053c0| ed 20 41 25 0d 23 28 14 | f2 77 72 69 74 65 28 22 |. A%.#(.|.write("|
|000053d0| 4c 45 47 45 4e 44 22 29 | 0d 23 32 12 f2 77 72 69 |LEGEND")|.#2..wri|
|000053e0| 74 65 28 54 69 74 6c 65 | 24 29 0d 23 3c 13 f2 77 |te(Title|$).#<..w|
|000053f0| 72 69 74 65 28 58 6c 61 | 62 6c 65 24 29 0d 23 46 |rite(Xla|ble$).#F|
|00005400| 13 f2 77 72 69 74 65 28 | 59 6c 61 62 6c 65 24 29 |..write(|Ylable$)|
|00005410| 0d 23 50 16 f2 77 72 69 | 74 65 28 c3 28 58 45 66 |.#P..wri|te(.(XEf|
|00005420| 6c 61 67 25 29 29 0d 23 | 5a 16 f2 77 72 69 74 65 |lag%)).#|Z..write|
|00005430| 28 c3 28 59 45 66 6c 61 | 67 25 29 29 0d 23 64 0a |(.(YEfla|g%)).#d.|
|00005440| f2 70 6f 70 75 70 0d 23 | 6e 09 3d 70 74 72 25 0d |.popup.#|n.=ptr%.|
|00005450| 23 78 05 3a 0d 23 82 10 | dd 20 f2 77 72 69 74 65 |#x.:.#..|. .write|
|00005460| 28 41 24 29 0d 23 8c 08 | ea 20 42 24 0d 23 96 0d |(A$).#..|. B$.#..|
|00005470| 42 24 3d 41 24 2b bd 31 | 30 0d 23 a0 13 24 28 70 |B$=A$+.1|0.#..$(p|
|00005480| 74 72 25 2b 6f 75 74 25 | 29 3d 42 24 0d 23 aa 0f |tr%+out%|)=B$.#..|
|00005490| 70 74 72 25 2b 3d a9 28 | 42 24 29 0d 23 b4 05 e1 |ptr%+=.(|B$).#...|
|000054a0| 0d 23 be 05 3a 0d 23 c8 | 17 dd 20 f2 5f 44 6f 46 |.#..:.#.|.. ._DoF|
|000054b0| 69 74 28 4d 61 78 49 74 | 65 72 25 29 0d 23 d2 24 |it(MaxIt|er%).#.$|
|000054c0| ea 20 41 25 2c 4e 43 41 | 25 2c 49 74 65 72 25 2c |. A%,NCA|%,Iter%,|
|000054d0| 4c 61 6d 62 64 61 2c 4d | 41 25 2c 77 69 6e 64 25 |Lambda,M|A%,wind%|
|000054e0| 0d 23 dc 0c 43 68 69 53 | 71 72 3d 30 0d 23 e6 12 |.#..ChiS|qr=0.#..|
|000054f0| 4f 43 68 69 53 71 72 3d | 43 68 69 53 71 72 0d 23 |OChiSqr=|ChiSqr.#|
|00005500| f0 10 e7 20 44 61 74 61 | 45 72 72 25 20 8c 0d 23 |... Data|Err% ..#|
|00005510| fa 29 e3 20 41 25 3d 31 | 20 b8 20 4e 64 61 74 61 |.). A%=1| . Ndata|
|00005520| 25 3a 53 69 67 28 41 25 | 29 3d 45 72 72 59 28 41 |%:Sig(A%|)=ErrY(A|
|00005530| 25 29 3a ed 20 41 25 0d | 24 04 05 cc 0d 24 0e 26 |%):. A%.|$....$.&|
|00005540| e3 20 41 25 3d 31 20 b8 | 20 4e 64 61 74 61 25 3a |. A%=1 .| Ndata%:|
|00005550| 53 69 67 28 41 25 29 3d | 53 69 67 65 78 3a ed 20 |Sig(A%)=|Sigex:. |
|00005560| 41 25 0d 24 18 05 cd 0d | 24 22 14 e3 20 41 25 3d |A%.$....|$".. A%=|
|00005570| 31 20 b8 20 50 61 72 61 | 6d 73 25 0d 24 2c 32 e7 |1 . Para|ms%.$,2.|
|00005580| 20 46 72 6f 7a 65 6e 25 | 28 41 25 29 3d b9 20 8c | Frozen%|(A%)=. .|
|00005590| 20 4c 69 73 74 41 25 28 | 41 25 29 3d 30 20 8b 20 | ListA%(|A%)=0 . |
|000055a0| 4c 69 73 74 41 25 28 41 | 25 29 3d 41 25 0d 24 36 |ListA%(A|%)=A%.$6|
|000055b0| 08 ed 20 41 25 0d 24 40 | 0f 4d 41 25 3d 50 61 72 |.. A%.$@|.MA%=Par|
|000055c0| 61 6d 73 25 0d 24 4a 1b | 4d 46 69 74 25 3d a4 5f |ams%.$J.|MFit%=._|
|000055d0| 53 6f 72 74 5f 4c 69 73 | 74 41 28 4d 41 25 29 0d |Sort_Lis|tA(MA%).|
|000055e0| 24 54 61 e7 20 4d 46 69 | 74 25 3d 30 20 8c 20 f2 |$Ta. MFi|t%=0 . .|
|000055f0| 6d 6f 61 6e 28 22 41 6c | 6c 20 22 2b c3 28 4d 41 |moan("Al|l "+.(MA|
|00005600| 25 29 2b 22 20 70 61 72 | 61 6d 65 74 65 72 73 20 |%)+" par|ameters |
|00005610| 61 72 65 20 66 72 6f 7a | 65 6e 21 20 55 6e 66 72 |are froz|en! Unfr|
|00005620| 65 65 7a 65 20 61 74 20 | 6c 65 61 73 74 20 6f 6e |eeze at |least on|
|00005630| 65 20 70 61 72 61 6d 65 | 74 65 72 21 22 29 3a e1 |e parame|ter!"):.|
|00005640| 0d 24 5e 10 4e 43 41 25 | 3d 32 2a 4d 46 69 74 25 |.$^.NCA%|=2*MFit%|
|00005650| 0d 24 68 15 f4 20 44 6f | 20 69 6e 69 74 69 61 6c |.$h.. Do| initial|
|00005660| 20 63 61 6c 6c 0d 24 72 | 0d 4c 61 6d 62 64 61 3d | call.$r|.Lambda=|
|00005670| 2d 31 0d 24 7c 0b 49 74 | 65 72 25 3d 31 0d 24 86 |-1.$|.It|er%=1.$.|
|00005680| 2c 24 74 72 61 63 65 25 | 3d 22 4c 65 76 65 6e 62 |,$trace%|="Levenb|
|00005690| 65 72 67 2f 4d 61 72 71 | 75 68 61 72 64 74 20 41 |erg/Marq|uhardt A|
|000056a0| 6c 67 6f 72 69 74 68 6d | 22 0d 24 90 22 c8 99 20 |lgorithm|".$.".. |
|000056b0| 22 57 69 6d 70 5f 43 6f | 6d 6d 61 6e 64 57 69 6e |"Wimp_Co|mmandWin|
|000056c0| 64 6f 77 22 2c 74 72 61 | 63 65 25 0d 24 9a 23 f2 |dow",tra|ce%.$.#.|
|000056d0| 5f 4d 52 51 4d 49 4e 28 | 4e 64 61 74 61 25 2c 4d |_MRQMIN(|Ndata%,M|
|000056e0| 41 25 2c 4d 46 69 74 25 | 2c 4e 43 41 25 29 0d 24 |A%,MFit%|,NCA%).$|
|000056f0| a4 32 f1 20 22 49 74 65 | 72 61 74 69 6f 6e 20 22 |.2. "Ite|ration "|
|00005700| 3b 49 74 65 72 25 3b 22 | 2c 20 43 68 69 20 53 71 |;Iter%;"|, Chi Sq|
|00005710| 75 61 72 65 64 20 3d 20 | 22 3b 43 68 69 53 71 72 |uared = |";ChiSqr|
|00005720| 0d 24 ae 05 f5 0d 24 b8 | 0c 49 74 65 72 25 2b 3d |.$....$.|.Iter%+=|
|00005730| 31 0d 24 c2 23 f2 5f 4d | 52 51 4d 49 4e 28 4e 64 |1.$.#._M|RQMIN(Nd|
|00005740| 61 74 61 25 2c 4d 41 25 | 2c 4d 46 69 74 25 2c 4e |ata%,MA%|,MFit%,N|
|00005750| 43 41 25 29 0d 24 cc 32 | f1 20 22 49 74 65 72 61 |CA%).$.2|. "Itera|
|00005760| 74 69 6f 6e 20 22 3b 49 | 74 65 72 25 3b 22 2c 20 |tion ";I|ter%;", |
|00005770| 43 68 69 20 53 71 75 61 | 72 65 64 20 3d 20 22 3b |Chi Squa|red = ";|
|00005780| 43 68 69 53 71 72 0d 24 | d6 14 fd 20 49 74 65 72 |ChiSqr.$|... Iter|
|00005790| 25 3d 4d 61 78 49 74 65 | 72 25 0d 24 e0 13 f4 20 |%=MaxIte|r%.$... |
|000057a0| 44 6f 20 66 69 6e 61 6c | 20 63 61 6c 6c 0d 24 ea |Do final| call.$.|
|000057b0| 0c 4c 61 6d 62 64 61 3d | 30 0d 24 f4 23 f2 5f 4d |.Lambda=|0.$.#._M|
|000057c0| 52 51 4d 49 4e 28 4e 64 | 61 74 61 25 2c 4d 41 25 |RQMIN(Nd|ata%,MA%|
|000057d0| 2c 4d 46 69 74 25 2c 4e | 43 41 25 29 0d 24 fe 23 |,MFit%,N|CA%).$.#|
|000057e0| 53 74 44 65 76 3d a4 63 | 61 6c 63 5f 53 74 44 65 |StDev=.c|alc_StDe|
|000057f0| 76 28 4e 64 61 74 61 25 | 2c 4d 46 69 74 25 29 0d |v(Ndata%|,MFit%).|
|00005800| 25 08 2f e3 20 41 25 3d | 31 20 b8 20 4d 41 25 3a |%./. A%=|1 . MA%:|
|00005810| 45 72 72 6f 72 28 41 25 | 29 3d b6 28 43 6f 76 61 |Error(A%|)=.(Cova|
|00005820| 72 28 41 25 2c 41 25 29 | 29 3a ed 20 41 25 0d 25 |r(A%,A%)|):. A%.%|
|00005830| 12 1d c8 99 20 22 57 69 | 6d 70 5f 43 6f 6d 6d 61 |.... "Wi|mp_Comma|
|00005840| 6e 64 57 69 6e 64 6f 77 | 22 2c 30 0d 25 1c 1d f4 |ndWindow|",0.%...|
|00005850| 20 55 70 64 61 74 65 20 | 70 61 72 61 6d 65 74 65 | Update |paramete|
|00005860| 72 20 77 69 6e 64 6f 77 | 0d 25 26 1b f2 6f 70 65 |r window|.%&..ope|
|00005870| 6e 77 69 6e 64 6f 77 28 | 50 61 72 61 6d 65 74 65 |nwindow(|Paramete|
|00005880| 72 25 29 0d 25 30 14 77 | 69 6e 64 25 3d 50 61 72 |r%).%0.w|ind%=Par|
|00005890| 61 6d 65 74 65 72 25 0d | 25 3a 24 f2 73 65 74 76 |ameter%.|%:$.setv|
|000058a0| 61 72 69 63 6f 6e 28 50 | 61 72 61 6d 73 48 25 2c |aricon(P|aramsH%,|
|000058b0| c3 28 50 61 72 61 6d 73 | 25 29 29 0d 25 44 14 e3 |.(Params|%)).%D..|
|000058c0| 20 41 25 3d 31 20 b8 20 | 50 61 72 61 6d 73 25 0d | A%=1 . |Params%.|
|000058d0| 25 4e 31 f2 73 65 74 76 | 61 72 69 63 6f 6e 28 50 |%N1.setv|aricon(P|
|000058e0| 61 72 61 6d 48 25 28 41 | 25 29 2c a4 5f 52 6f 75 |aramH%(A|%),._Rou|
|000058f0| 6e 64 28 50 61 72 61 6d | 28 41 25 29 2c 35 29 29 |nd(Param|(A%),5))|
|00005900| 0d 25 58 13 e7 20 46 72 | 6f 7a 65 6e 25 28 41 25 |.%X.. Fr|ozen%(A%|
|00005910| 29 20 8c 0d 25 62 20 f2 | 73 65 74 76 61 72 69 63 |) ..%b .|setvaric|
|00005920| 6f 6e 28 45 72 72 6f 72 | 48 25 28 41 25 29 2c 22 |on(Error|H%(A%),"|
|00005930| 30 22 29 0d 25 6c 05 cc | 0d 25 76 31 f2 73 65 74 |0").%l..|.%v1.set|
|00005940| 76 61 72 69 63 6f 6e 28 | 45 72 72 6f 72 48 25 28 |varicon(|ErrorH%(|
|00005950| 41 25 29 2c a4 5f 52 6f | 75 6e 64 28 45 72 72 6f |A%),._Ro|und(Erro|
|00005960| 72 28 41 25 29 2c 35 29 | 29 0d 25 80 05 cd 0d 25 |r(A%),5)|).%....%|
|00005970| 8a 08 ed 20 41 25 0d 25 | 94 16 e3 20 41 25 3d 50 |... A%.%|... A%=P|
|00005980| 61 72 61 6d 73 25 2b 31 | 20 b8 20 38 0d 25 9e 1f |arams%+1| . 8.%..|
|00005990| f2 73 65 74 76 61 72 69 | 63 6f 6e 28 50 61 72 61 |.setvari|con(Para|
|000059a0| 6d 48 25 28 41 25 29 2c | 22 22 29 0d 25 a8 1f f2 |mH%(A%),|"").%...|
|000059b0| 73 65 74 76 61 72 69 63 | 6f 6e 28 45 72 72 6f 72 |setvaric|on(Error|
|000059c0| 48 25 28 41 25 29 2c 22 | 22 29 0d 25 b2 08 ed 20 |H%(A%),"|").%... |
|000059d0| 41 25 0d 25 bc 2b f2 73 | 65 74 76 61 72 69 63 6f |A%.%.+.s|etvarico|
|000059e0| 6e 28 43 68 69 53 71 72 | 48 25 2c a4 5f 52 6f 75 |n(ChiSqr|H%,._Rou|
|000059f0| 6e 64 28 43 68 69 53 71 | 72 2c 35 29 29 0d 25 c6 |nd(ChiSq|r,5)).%.|
|00005a00| 29 f2 73 65 74 76 61 72 | 69 63 6f 6e 28 53 74 44 |).setvar|icon(StD|
|00005a10| 65 76 48 25 2c a4 5f 52 | 6f 75 6e 64 28 53 74 44 |evH%,._R|ound(StD|
|00005a20| 65 76 2c 35 29 29 0d 25 | d0 27 f4 20 4e 6f 77 20 |ev,5)).%|.'. Now |
|00005a30| 69 6e 69 74 69 61 74 65 | 20 61 20 73 61 76 65 20 |initiate| a save |
|00005a40| 64 61 74 61 20 72 6f 75 | 74 69 6e 65 2e 0d 25 da |data rou|tine..%.|
|00005a50| 12 73 61 76 65 6c 65 6e | 25 3d a4 73 61 76 65 0d |.savelen|%=.save.|
|00005a60| 25 e4 05 e1 0d 25 ee 05 | 3a 0d 25 f8 18 dd 20 a4 |%....%..|:.%... .|
|00005a70| 63 61 6c 63 5f 53 74 44 | 65 76 28 4e 25 2c 4d 25 |calc_StD|ev(N%,M%|
|00005a80| 29 0d 26 02 13 ea 20 41 | 25 2c 44 59 2c 53 75 6d |).&... A|%,DY,Sum|
|00005a90| 2c 52 65 73 0d 26 0c 3c | 53 75 6d 3d 30 3a e3 20 |,Res.&.<|Sum=0:. |
|00005aa0| 41 25 3d 31 20 b8 20 4e | 25 3a 44 59 3d 59 28 41 |A%=1 . N|%:DY=Y(A|
|00005ab0| 25 29 2d a4 5f 43 61 6c | 63 28 58 28 41 25 29 29 |%)-._Cal|c(X(A%))|
|00005ac0| 3a 53 75 6d 2b 3d 44 59 | 2a 44 59 3a ed 20 41 25 |:Sum+=DY|*DY:. A%|
|00005ad0| 0d 26 16 0f e7 20 4e 25 | 3d 4d 25 2b 31 20 8c 0d |.&... N%|=M%+1 ..|
|00005ae0| 26 20 15 52 65 73 3d b6 | 28 53 75 6d 2f 28 4e 25 |& .Res=.|(Sum/(N%|
|00005af0| 2d 31 29 29 0d 26 2a 61 | f2 6d 6f 61 6e 28 22 57 |-1)).&*a|.moan("W|
|00005b00| 61 72 6e 69 6e 67 21 20 | 23 20 6f 66 20 64 61 74 |arning! |# of dat|
|00005b10| 61 20 70 6f 69 6e 74 73 | 20 3d 20 23 20 70 61 72 |a points| = # par|
|00005b20| 61 6d 73 2b 31 2c 20 75 | 73 69 6e 67 20 53 74 2e |ams+1, u|sing St.|
|00005b30| 20 44 65 76 2e 20 3d 20 | 53 51 52 28 53 75 6d 2f | Dev. = |SQR(Sum/|
|00005b40| 28 4e 25 2d 31 29 29 20 | 65 78 70 72 65 73 73 69 |(N%-1)) |expressi|
|00005b50| 6f 6e 2e 22 29 0d 26 34 | 05 cc 0d 26 3e 18 52 65 |on.").&4|...&>.Re|
|00005b60| 73 3d b6 28 53 75 6d 2f | 28 4e 25 2d 4d 25 2d 31 |s=.(Sum/|(N%-M%-1|
|00005b70| 29 29 0d 26 48 05 cd 0d | 26 52 08 3d 52 65 73 0d |)).&H...|&R.=Res.|
|00005b80| 26 5c 05 3a 0d 26 66 21 | dd 20 f2 5f 4d 52 51 4d |&\.:.&f!|. ._MRQM|
|00005b90| 49 4e 28 4e 25 2c 4d 41 | 25 2c 4d 46 69 74 25 2c |IN(N%,MA|%,MFit%,|
|00005ba0| 4e 43 41 25 29 0d 26 70 | 14 ea 20 4b 4b 25 2c 4a |NCA%).&p|.. KK%,J|
|00005bb0| 25 2c 48 69 74 25 2c 4b | 25 0d 26 7a 10 e7 20 4c |%,Hit%,K|%.&z.. L|
|00005bc0| 61 6d 62 64 61 3c 30 20 | 8c 0d 26 84 11 20 20 4b |ambda<0 |..&..  K|
|00005bd0| 4b 25 3d 4d 46 69 74 25 | 2b 31 0d 26 8e 12 20 20 |K%=MFit%|+1.&..  |
|00005be0| e3 20 4a 25 3d 31 20 b8 | 20 4d 41 25 0d 26 98 0e |. J%=1 .| MA%.&..|
|00005bf0| 20 20 20 20 48 69 74 25 | 3d 30 0d 26 a2 16 20 20 |    Hit%|=0.&..  |
|00005c00| 20 20 e3 20 4b 25 3d 31 | 20 b8 20 4d 46 69 74 25 |  . K%=1| . MFit%|
|00005c10| 0d 26 ac 23 20 20 20 20 | 20 20 e7 20 4c 69 73 74 |.&.#    |  . List|
|00005c20| 41 25 28 4b 25 29 3d 4a | 25 20 8c 20 48 69 74 25 |A%(K%)=J|% . Hit%|
|00005c30| 2b 3d 31 0d 26 b6 0c 20 | 20 20 20 ed 20 4b 25 0d |+=1.&.. |   . K%.|
|00005c40| 26 c0 12 20 20 20 20 e7 | 20 48 69 74 25 3d 30 20 |&..    .| Hit%=0 |
|00005c50| 8c 0d 26 ca 18 20 20 20 | 20 20 20 4c 69 73 74 41 |..&..   |   ListA|
|00005c60| 25 28 4b 4b 25 29 3d 4a | 25 0d 26 d4 10 20 20 20 |%(KK%)=J|%.&..   |
|00005c70| 20 20 20 4b 4b 25 2b 3d | 31 0d 26 de 09 20 20 20 |   KK%+=|1.&..   |
|00005c80| 20 cc 0d 26 e8 3e 20 20 | 20 20 20 20 e7 20 48 69 | ..&.>  |    . Hi|
|00005c90| 74 25 3e 31 20 8c 20 f2 | 6d 6f 61 6e 28 22 49 6d |t%>1 . .|moan("Im|
|00005ca0| 70 72 6f 70 65 72 20 70 | 65 72 6d 75 74 61 74 69 |proper p|ermutati|
|00005cb0| 6f 6e 20 69 6e 20 4c 69 | 73 74 41 25 28 29 22 29 |on in Li|stA%()")|
|00005cc0| 0d 26 f2 09 20 20 20 20 | cd 0d 26 fc 0a 20 20 ed |.&..    |..&..  .|
|00005cd0| 20 4a 25 0d 27 06 3d 20 | 20 e7 20 4b 4b 25 3c 3e | J%.'.= | . KK%<>|
|00005ce0| 28 4d 41 25 2b 31 29 20 | 8c 20 85 20 31 2c 22 49 |(MA%+1) |. . 1,"I|
|00005cf0| 6d 70 72 6f 70 65 72 20 | 70 65 72 6d 75 74 61 74 |mproper |permutat|
|00005d00| 69 6f 6e 20 69 6e 20 4c | 69 73 74 41 25 28 29 22 |ion in L|istA%()"|
|00005d10| 0d 27 10 12 20 20 4c 61 | 6d 62 64 61 3d 30 2e 30 |.'..  La|mbda=0.0|
|00005d20| 30 31 0d 27 1a 1c 20 20 | f2 5f 4d 52 51 43 4f 46 |01.'..  |._MRQCOF|
|00005d30| 28 4e 25 2c 4d 41 25 2c | 4d 46 69 74 25 29 0d 27 |(N%,MA%,|MFit%).'|
|00005d40| 24 52 20 20 e3 20 49 25 | 3d 31 20 b8 20 4e 43 41 |$R  . I%|=1 . NCA|
|00005d50| 25 3a e3 20 4a 25 3d 31 | 20 b8 20 4e 43 41 25 3a |%:. J%=1| . NCA%:|
|00005d60| 41 6c 70 68 61 28 49 25 | 2c 4a 25 29 3d 41 4d 28 |Alpha(I%|,J%)=AM(|
|00005d70| 49 25 2c 4a 25 29 3a ed | 20 4a 25 3a 42 65 74 61 |I%,J%):.| J%:Beta|
|00005d80| 28 49 25 29 3d 42 4d 28 | 49 25 29 3a ed 20 49 25 |(I%)=BM(|I%):. I%|
|00005d90| 0d 27 2e 14 20 20 4f 43 | 68 69 53 71 72 3d 43 68 |.'..  OC|hiSqr=Ch|
|00005da0| 69 53 71 72 0d 27 38 14 | 20 20 41 54 72 79 28 29 |iSqr.'8.|  ATry()|
|00005db0| 3d 50 61 72 61 6d 28 29 | 0d 27 42 05 cd 0d 27 4c |=Param()|.'B...'L|
|00005dc0| 40 e3 20 4a 25 3d 31 20 | b8 20 4d 46 69 74 25 3a |@. J%=1 |. MFit%:|
|00005dd0| e3 20 4b 25 3d 31 20 b8 | 20 4d 46 69 74 25 3a 43 |. K%=1 .| MFit%:C|
|00005de0| 6f 76 61 72 28 4a 25 2c | 4b 25 29 3d 41 6c 70 68 |ovar(J%,|K%)=Alph|
|00005df0| 61 28 4a 25 2c 4b 25 29 | 3a ed 20 4b 25 0d 27 56 |a(J%,K%)|:. K%.'V|
|00005e00| 3d 43 6f 76 61 72 28 4a | 25 2c 4a 25 29 3d 41 6c |=Covar(J|%,J%)=Al|
|00005e10| 70 68 61 28 4a 25 2c 4a | 25 29 2a 28 31 2b 4c 61 |pha(J%,J|%)*(1+La|
|00005e20| 6d 62 64 61 29 3a 44 41 | 28 4a 25 29 3d 42 65 74 |mbda):DA|(J%)=Bet|
|00005e30| 61 28 4a 25 29 3a ed 20 | 4a 25 0d 27 60 5c e3 20 |a(J%):. |J%.'`\. |
|00005e40| 49 25 3d 31 20 b8 20 4e | 43 41 25 3a e3 20 4a 25 |I%=1 . N|CA%:. J%|
|00005e50| 3d 31 20 b8 20 4e 43 41 | 25 3a 41 47 28 49 25 2c |=1 . NCA|%:AG(I%,|
|00005e60| 4a 25 29 3d 43 6f 76 61 | 72 28 49 25 2c 4a 25 29 |J%)=Cova|r(I%,J%)|
|00005e70| 3a 42 47 28 49 25 2c 4a | 25 29 3d 30 3a ed 20 4a |:BG(I%,J|%)=0:. J|
|00005e80| 25 3a 42 47 28 49 25 2c | 31 29 3d 44 41 28 49 25 |%:BG(I%,|1)=DA(I%|
|00005e90| 29 3a ed 20 49 25 0d 27 | 6a 1c f2 5f 47 41 55 53 |):. I%.'|j.._GAUS|
|00005ea0| 53 4a 28 4d 46 69 74 25 | 2c 4e 43 41 25 2c 31 2c |SJ(MFit%|,NCA%,1,|
|00005eb0| 31 29 0d 27 74 50 e3 20 | 49 25 3d 31 20 b8 20 4e |1).'tP. |I%=1 . N|
|00005ec0| 43 41 25 3a e3 20 4a 25 | 3d 31 20 b8 20 4e 43 41 |CA%:. J%|=1 . NCA|
|00005ed0| 25 3a 43 6f 76 61 72 28 | 49 25 2c 4a 25 29 3d 41 |%:Covar(|I%,J%)=A|
|00005ee0| 47 28 49 25 2c 4a 25 29 | 3a ed 20 4a 25 3a 44 41 |G(I%,J%)|:. J%:DA|
|00005ef0| 28 49 25 29 3d 42 47 28 | 49 25 2c 31 29 3a ed 20 |(I%)=BG(|I%,1):. |
|00005f00| 49 25 0d 27 7e 28 e7 20 | 28 4c 61 6d 62 64 61 3d |I%.'~(. |(Lambda=|
|00005f10| 30 29 20 8c 20 f2 5f 43 | 4f 56 53 52 54 28 4d 41 |0) . ._C|OVSRT(MA|
|00005f20| 25 2c 4d 46 69 74 25 29 | 3a e1 0d 27 88 41 e3 20 |%,MFit%)|:..'.A. |
|00005f30| 4a 25 3d 31 20 b8 20 4d | 46 69 74 25 3a 41 54 72 |J%=1 . M|Fit%:ATr|
|00005f40| 79 28 4c 69 73 74 41 25 | 28 4a 25 29 29 3d 50 61 |y(ListA%|(J%))=Pa|
|00005f50| 72 61 6d 28 4c 69 73 74 | 41 25 28 4a 25 29 29 2b |ram(List|A%(J%))+|
|00005f60| 44 41 28 4a 25 29 3a ed | 20 4a 25 0d 27 92 12 50 |DA(J%):.| J%.'..P|
|00005f70| 61 72 61 6d 28 29 3d 41 | 54 72 79 28 29 0d 27 9c |aram()=A|Try().'.|
|00005f80| 1a f2 5f 4d 52 51 43 4f | 46 28 4e 25 2c 4d 41 25 |.._MRQCO|F(N%,MA%|
|00005f90| 2c 4d 46 69 74 25 29 0d | 27 a6 4e e3 20 49 25 3d |,MFit%).|'.N. I%=|
|00005fa0| 31 20 b8 20 4e 43 41 25 | 3a e3 20 4a 25 3d 31 20 |1 . NCA%|:. J%=1 |
|00005fb0| b8 20 4e 43 41 25 3a 43 | 6f 76 61 72 28 49 25 2c |. NCA%:C|ovar(I%,|
|00005fc0| 4a 25 29 3d 41 4d 28 49 | 25 2c 4a 25 29 3a ed 20 |J%)=AM(I|%,J%):. |
|00005fd0| 4a 25 3a 44 41 28 49 25 | 29 3d 42 4d 28 49 25 29 |J%:DA(I%|)=BM(I%)|
|00005fe0| 3a ed 20 49 25 0d 27 b0 | 18 e7 20 28 43 68 69 53 |:. I%.'.|.. (ChiS|
|00005ff0| 71 72 3c 4f 43 68 69 53 | 71 72 29 20 8c 0d 27 ba |qr<OChiS|qr) ..'.|
|00006000| 26 20 20 4c 61 6d 62 64 | 61 3d 30 2e 31 2a 4c 61 |&  Lambd|a=0.1*La|
|00006010| 6d 62 64 61 3a 4f 43 68 | 69 53 71 72 3d 43 68 69 |mbda:OCh|iSqr=Chi|
|00006020| 53 71 72 0d 27 c4 42 20 | 20 e3 20 4a 25 3d 31 20 |Sqr.'.B | . J%=1 |
|00006030| b8 20 4d 46 69 74 25 3a | e3 20 4b 25 3d 31 20 b8 |. MFit%:|. K%=1 .|
|00006040| 20 4d 46 69 74 25 3a 41 | 6c 70 68 61 28 4a 25 2c | MFit%:A|lpha(J%,|
|00006050| 4b 25 29 3d 43 6f 76 61 | 72 28 4a 25 2c 4b 25 29 |K%)=Cova|r(J%,K%)|
|00006060| 3a ed 20 4b 25 0d 27 ce | 3d 20 20 42 65 74 61 28 |:. K%.'.|=  Beta(|
|00006070| 4a 25 29 3d 44 41 28 4a | 25 29 3a 50 61 72 61 6d |J%)=DA(J|%):Param|
|00006080| 28 4c 69 73 74 41 25 28 | 4a 25 29 29 3d 41 54 72 |(ListA%(|J%))=ATr|
|00006090| 79 28 4c 69 73 74 41 25 | 28 4a 25 29 29 3a ed 20 |y(ListA%|(J%)):. |
|000060a0| 4a 25 0d 27 d8 05 cc 0d | 27 e2 25 20 20 4c 61 6d |J%.'....|'.%  Lam|
|000060b0| 62 64 61 3d 31 30 2a 4c | 61 6d 62 64 61 3a 43 68 |bda=10*L|ambda:Ch|
|000060c0| 69 53 71 72 3d 4f 43 68 | 69 53 71 72 0d 27 ec 05 |iSqr=OCh|iSqr.'..|
|000060d0| cd 0d 27 f6 05 e1 0d 28 | 00 05 3a 0d 28 0a 1c dd |..'....(|..:.(...|
|000060e0| 20 f2 5f 4d 52 51 43 4f | 46 28 4e 25 2c 4d 41 25 | ._MRQCO|F(N%,MA%|
|000060f0| 2c 4d 46 69 74 25 29 0d | 28 14 1e ea 20 49 25 2c |,MFit%).|(... I%,|
|00006100| 4a 25 2c 4b 25 2c 58 2c | 59 2c 53 69 67 32 69 2c |J%,K%,X,|Y,Sig2i,|
|00006110| 44 59 2c 57 54 0d 28 1e | 12 e3 20 4a 25 3d 31 20 |DY,WT.(.|.. J%=1 |
|00006120| b8 20 4d 46 69 74 25 0d | 28 28 20 e3 20 4b 25 3d |. MFit%.|(( . K%=|
|00006130| 31 20 b8 20 4a 25 3a 41 | 4d 28 4a 25 2c 4b 25 29 |1 . J%:A|M(J%,K%)|
|00006140| 3d 30 3a ed 20 4b 25 0d | 28 32 0c 42 4d 28 4a 25 |=0:. K%.|(2.BM(J%|
|00006150| 29 3d 30 0d 28 3c 08 ed | 20 4a 25 0d 28 46 0c 43 |)=0.(<..| J%.(F.C|
|00006160| 68 69 53 71 72 3d 30 0d | 28 50 0f e3 20 49 25 3d |hiSqr=0.|(P.. I%=|
|00006170| 31 20 b8 20 4e 25 0d 28 | 5a 0b 58 3d 58 28 49 25 |1 . N%.(|Z.X=X(I%|
|00006180| 29 0d 28 64 0f 59 3d a4 | 5f 43 61 6c 63 28 58 29 |).(d.Y=.|_Calc(X)|
|00006190| 0d 28 6e 17 53 69 67 32 | 69 3d 31 2f 28 53 69 67 |.(n.Sig2|i=1/(Sig|
|000061a0| 28 49 25 29 5e 32 29 0d | 28 78 0e 44 59 3d 59 28 |(I%)^2).|(x.DY=Y(|
|000061b0| 49 25 29 2d 59 0d 28 82 | 2d e3 20 4a 25 3d 31 20 |I%)-Y.(.|-. J%=1 |
|000061c0| b8 20 4d 46 69 74 25 3a | 57 54 3d 64 46 64 50 69 |. MFit%:|WT=dFdPi|
|000061d0| 28 4c 69 73 74 41 25 28 | 4a 25 29 29 2a 53 69 67 |(ListA%(|J%))*Sig|
|000061e0| 32 69 0d 28 8c 34 e3 20 | 4b 25 3d 31 20 b8 20 4a |2i.(.4. |K%=1 . J|
|000061f0| 25 3a 41 4d 28 4a 25 2c | 4b 25 29 2b 3d 57 54 2a |%:AM(J%,|K%)+=WT*|
|00006200| 64 46 64 50 69 28 4c 69 | 73 74 41 25 28 4b 25 29 |dFdPi(Li|stA%(K%)|
|00006210| 29 3a ed 20 4b 25 0d 28 | 96 16 42 4d 28 4a 25 29 |):. K%.(|..BM(J%)|
|00006220| 2b 3d 44 59 2a 57 54 3a | ed 20 4a 25 0d 28 a0 17 |+=DY*WT:|. J%.(..|
|00006230| 43 68 69 53 71 72 2b 3d | 44 59 2a 44 59 2a 53 69 |ChiSqr+=|DY*DY*Si|
|00006240| 67 32 69 0d 28 aa 08 ed | 20 49 25 0d 28 b4 3c e3 |g2i.(...| I%.(.<.|
|00006250| 20 4a 25 3d 32 20 b8 20 | 4d 46 69 74 25 3a e3 20 | J%=2 . |MFit%:. |
|00006260| 4b 25 3d 31 20 b8 20 4a | 25 2d 31 3a 41 4d 28 4b |K%=1 . J|%-1:AM(K|
|00006270| 25 2c 4a 25 29 3d 41 4d | 28 4a 25 2c 4b 25 29 3a |%,J%)=AM|(J%,K%):|
|00006280| ed 20 4b 25 2c 4a 25 0d | 28 be 05 e1 0d 28 c8 05 |. K%,J%.|(....(..|
|00006290| 3a 0d 28 d2 1d dd 20 f2 | 5f 47 41 55 53 53 4a 28 |:.(... .|_GAUSSJ(|
|000062a0| 4e 25 2c 4e 50 25 2c 4d | 25 2c 4d 50 25 29 0d 28 |N%,NP%,M|%,MP%).(|
|000062b0| dc 30 ea 20 42 69 67 2c | 49 25 2c 4a 25 2c 4b 25 |.0. Big,|I%,J%,K%|
|000062c0| 2c 4c 25 2c 4c 4c 25 2c | 49 52 6f 77 25 2c 49 43 |,L%,LL%,|IRow%,IC|
|000062d0| 6f 6c 25 2c 50 69 76 49 | 6e 76 2c 44 75 6d 0d 28 |ol%,PivI|nv,Dum.(|
|000062e0| e6 37 f4 20 55 73 65 73 | 20 61 72 72 61 79 73 20 |.7. Uses| arrays |
|000062f0| 41 47 28 32 30 2c 32 30 | 29 20 61 6e 64 20 42 47 |AG(20,20|) and BG|
|00006300| 28 32 30 2c 32 30 29 20 | 61 73 20 77 6f 72 6b 73 |(20,20) |as works|
|00006310| 70 61 63 65 2e 0d 28 f0 | 20 e3 20 4a 25 3d 31 20 |pace..(.| . J%=1 |
|00006320| b8 20 4e 25 3a 49 50 49 | 56 25 28 4a 25 29 3d 30 |. N%:IPI|V%(J%)=0|
|00006330| 3a ed 20 4a 25 0d 28 fa | 15 e3 20 49 25 3d 31 20 |:. J%.(.|.. I%=1 |
|00006340| b8 20 4e 25 3a 42 69 67 | 3d 30 0d 29 04 0f e3 20 |. N%:Big|=0.)... |
|00006350| 4a 25 3d 31 20 b8 20 4e | 25 0d 29 0e 16 e7 20 28 |J%=1 . N|%.)... (|
|00006360| 49 50 49 56 25 28 4a 25 | 29 3c 3e 31 29 20 8c 0d |IPIV%(J%|)<>1) ..|
|00006370| 29 18 11 20 20 e3 20 4b | 25 3d 31 20 b8 20 4e 25 |)..  . K|%=1 . N%|
|00006380| 0d 29 22 17 20 20 e7 20 | 28 49 50 49 56 25 28 4b |.)".  . |(IPIV%(K|
|00006390| 25 29 3d 30 29 20 8c 0d | 29 2c 42 20 20 20 20 e7 |%)=0) ..|),B    .|
|000063a0| 20 28 94 28 41 47 28 4a | 25 2c 4b 25 29 29 3e 3d | (.(AG(J|%,K%))>=|
|000063b0| 42 69 67 29 20 8c 20 42 | 69 67 3d 94 28 41 47 28 |Big) . B|ig=.(AG(|
|000063c0| 4a 25 2c 4b 25 29 29 3a | 49 52 6f 77 25 3d 4a 25 |J%,K%)):|IRow%=J%|
|000063d0| 3a 49 43 6f 6c 25 3d 4b | 25 0d 29 36 07 20 20 cc |:ICol%=K|%.)6.  .|
|000063e0| 0d 29 40 30 20 20 20 20 | e7 20 28 49 50 49 56 25 |.)@0    |. (IPIV%|
|000063f0| 28 4b 25 29 3e 31 29 20 | 8c 20 85 20 31 2c 22 53 |(K%)>1) |. . 1,"S|
+--------+-------------------------+-------------------------+--------+--------+